繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 将你的网站设置为客户的信任站点--VB方案
- ASP
- asp数个使用技巧
- 存储过程里的递归 实现方法
- 非常不错的列出sql服务器上所有数据库的asp代码
- 防范ASP木马的十大基本原则强列建议看下
- 雷客图ASP站长安全助手的ASP木马查找功能
- 防止别人盗链的好方法推荐
- 图片的入库与读取的方法
- 用asp实现无组件生成验证码的方法2种
- 用asp实现检测文件编码
- [asp]怎么添加验证码的解决方法
- ASP文章系统解决方案实现上一页下一页
- ASP编程入门进阶（三）：接触脚本程序
- ASP编程入门进阶（四）：内置对象Request
- ASP编程入门进阶（五）：内置对象Response
- ASP编程入门进阶（六）：Cookies讲座
- ASP编程入门进阶（八）：内置对象Session
- ASP编程入门进阶（九）：内置对象Application
- ASP编码优化技巧8则
- ASP编程入门进阶（十）：Global.asa文件
- ASP编程入门进阶（十一）：Chat聊天程序
ASP 中的 将你的网站设置为客户的信任站点--VB方案
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 97 ::
收藏到网摘: n/a
将程序生成EXE,文件名即为你的网站名称
Const HKEY_CLASSES_ROOT = -2147483648#
Const HKEY_CURRENT_USER = -2147483647#
Const HKEY_LOCAL_MACHINE = -2147483646#
Const HKEY_USERS = -2147483645#
Const REG_SZ = 1& '字符串值
Const REG_BINARY = 3& '二?制值
Const REG_DWORD = 4& 'DWORD 值
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByRef phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Sub Form_Load()
Call SetTrustedSite(App.EXEName)
Unload Me
End Sub
'//Set Trust site
Private Function SetTrustedSite(ByVal StrSiteName As String)
On Error GoTo Errhandle
Dim nKeyHandle, KeyValue, Iresult As Long
Dim StrkeyPath As String
StrkeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\"
StrkeyPath = StrkeyPath & SplitSiteName(StrSiteName)
KeyValue = 2
Call RegCreateKey(HKEY_CURRENT_USER, StrkeyPath, nKeyHandle)
Iresult = RegSetValueEx(nKeyHandle, "http", 0, REG_DWORD, KeyValue, 4)
If Iresult = 0 Then
MsgBox "You have accept http://" & StrSiteName & " as your Trusted Site!"
Else
MsgBox "Fail add http://" & StrSiteName & " as your Trusted Site!"
End If
Call RegCloseKey(nKeyHandle)
Exit Function
Errhandle:
MsgBox "Fail add http://" & StrSiteName & " as your Trusted Site!"
End Function
'// Split SiteName
'// "A.B.C.D.E" ----> "D.E/A.B.C"
'// "A.B.C.D" ----> "C.D/A.B"
'// "A.B.C" ----> "B.C/A"
'// "A.B" ----> "A.B"
'// "A" ----> "A"
Private Function SplitSiteName(ByVal StrSiteName As String) As String
Dim ArraySiteName
Dim IntArrayLen, I As Integer
Dim StrSplitSite As String
ArraySiteName = Split(StrSiteName, ".")
IntArrayLen = UBound(ArraySiteName)
If IntArrayLen > 1 Then
StrSplitSite = ArraySiteName(IntArrayLen - 1) & "." & ArraySiteName(IntArrayLen) & "\"
For I = 0 To IntArrayLen - 2
If I = 0 Then
StrSplitSite = StrSplitSite & ArraySiteName(I)
Else
StrSplitSite = StrSplitSite & "." & ArraySiteName(I)
End If
Next
SplitSiteName = StrSplitSite
Else
SplitSiteName = StrSiteName
End If
End Function
评论 (0) All
