繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 将你的网站设置为客户的信任站点--VB方案
- ASP
- 冒泡算法的三种JavaScript表示
- asp无限分级(递归调用)
- VBS、ASP代码语法加亮显示的类
- 安全脚本程序的编写 V1.0
- atom2rss.asp
- atom_js.asp
- google sitemap.asp
- 用ASP读取/写入UTF-8编码格式的文件
- 捌度空间 缓存类
- 再来个专门为google量身定做的sitemap生成代码,(可是动态的哦)
- 一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例
- 如何在ASP页面动态Inclue文件？
- 多域名一网站时如果返回最原来的域名
- 网页木马代码例子（里面的文件是漏洞扫描器，呵呵）
- ASP万用分页程序
- ASP项目中的公共翻页模块
- 在ASP中使用均速分页法提高分页速度
- 3种不同的方法生成文件
- 身份证校验算法与ASP程序
- ASP抽取数据的执行效率
ASP 中的 将你的网站设置为客户的信任站点--VB方案
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 69 ::
收藏到网摘: 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
