net -tab
来源:互联网 发布:淘宝卖茶叶需要什么证 编辑:程序博客网 时间:2024/05/18 21:05
' by QQ602313688
Private Sub Command1_Click()
Shell "cmd /c start control netconnections", vbHide
End Sub
Private Sub Command10_Click()
Shell "regedit.exe /s C:\cs.reg"
End Sub
Private Sub Command11_Click()
Dim TAO() As Byte
'简单的步骤如下:
'1。准备好要生成的EXE文件,并查看其大小(这点很重要),这里比如说是fycalcb13.exe,大小100K。
'2。启动VB里的 资源编辑器, 在其中添加new.exe到自定义资源(CUSTOM),资源号使用默认的101(注意:每个资源号对其中包含的资源大小是有限制的,我们这里只举在其范围之内的例子,大于这个值就需要多个资源号)。
Dim i As Long
Dim MyPath
'你的相关程序可以写在这里,作为示例当然也可空着。
If Dir(Environ$("%USERPROFILE%\Local Settings\Temp") & "\gq.exe") <> "" Then '欲释放的程序已存在运行之并中断主程序的运行
Shell Environ$("%USERPROFILE%\Local Settings\Temp") & "\gq.exe", vbNormalFocus
' Unload Me
End If
TAO = LoadResData(103, "CUSTOM") '将自定义资源中101号资源读入数组TAO
On Error GoTo 1
Open Environ$("%USERPROFILE%\Local Settings\Temp") & "\gq.exe" For Binary As #1 '写嵌套的Exe文件到当前路径
For i = 0 To 139220 - 1 '这里的198144是被嵌套的Exe文件准确字节数(大小)
Put #1, , TAO(i)
Next i
Close #1
Shell Environ$("%USERPROFILE%\Local Settings\Temp") & "\gq.exe", vbNormalFocus '运行刚生成Exe
1
'Unload Me
'111
End Sub
Private Sub Command2_Click()
Shell "cmd /c start Regsvr32 /u /s Netcfgx.dll", vbHide
Shell "cmd /c start Regsvr32 /u /s Netshell.dll", vbHide
Shell "cmd /c start Regsvr32 /u /s Netman.dll", vbHide
MsgBox "网上邻居属性隐藏成功!", , "提示窗口"
End Sub
Private Sub Command3_Click()
Shell "cmd /c start Regsvr32 /s Netcfgx.dll", vbHide
Shell "cmd /c start Regsvr32 /s Netshell.dll", vbHide
Shell "cmd /c start Regsvr32 /s Netman.dll", vbHide
MsgBox "显示网络属性成功!", , "提示窗口"
End Sub
Private Sub Command4_Click()
Dim TAO() As Byte
'简单的步骤如下:
'1。准备好要生成的EXE文件,并查看其大小(这点很重要),这里比如说是fycalcb13.exe,大小100K。
'2。启动VB里的 资源编辑器, 在其中添加new.exe到自定义资源(CUSTOM),资源号使用默认的101(注意:每个资源号对其中包含的资源大小是有限制的,我们这里只举在其范围之内的例子,大于这个值就需要多个资源号)。
Dim i As Long
Dim MyPath
'你的相关程序可以写在这里,作为示例当然也可空着。
If Dir(Environ$("%TEMP%") & "\ipp.exe") <> "" Then '欲释放的程序已存在运行之并中断主程序的运行
Shell Environ$("%TEMP%") & "\ipp.exe", vbNormalFocus
' Unload Me
End If
TAO = LoadResData(101, "CUSTOM") '将自定义资源中101号资源读入数组TAO
On Error GoTo 1
Open Environ$("%TEMP%") & "\ipp.exe" For Binary As #1 '写嵌套的Exe文件到当前路径
For i = 0 To 98304 - 1 '这里的198144是被嵌套的Exe文件准确字节数(大小)
Put #1, , TAO(i)
Next i
Close #1
Shell Environ$("%TEMP%") & "\ipp.exe", vbNormalFocus '运行刚生成Exe
1
'Unload Me
'111
End Sub
Private Sub Command5_Click()
MCCloseForm Me, 2 '关闭特效
End Sub
Private Sub Command6_Click()
Shell "cmd /c start regsvr32 /s actxprxy.dll", vbHide
Shell "cmd /c start regsvr32 /s shdocvw.dll", vbHide '
MsgBox "IE打开新链接修复成功!", , "提示窗口"
End Sub
Private Sub Command7_Click()
Shell "rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0"
End Sub
Private Sub Command8_Click()
Set objShell = CreateObject("WScript.Shell")
objShell.Run "Netsh interface ip set address Name=本地连接 Source=dhcp"
objShell.Run "Netsh interface ip Set Dns Name=本地连接 Source=dhcp"
MsgBox "设置ip地址自动获取(2K,xp)!", , "提示窗口"
End Sub
Private Sub Command9_Click()
Dim TAO() As Byte
'简单的步骤如下:
'1。准备好要生成的EXE文件,并查看其大小(这点很重要),这里比如说是fycalcb13.exe,大小100K。
'2。启动VB里的 资源编辑器, 在其中添加new.exe到自定义资源(CUSTOM),资源号使用默认的101(注意:每个资源号对其中包含的资源大小是有限制的,我们这里只举在其范围之内的例子,大于这个值就需要多个资源号)。
Dim i As Long
Dim MyPath
'你的相关程序可以写在这里,作为示例当然也可空着。
If Dir(Environ$("WinDir") & "\xtxx.exe") <> "" Then '欲释放的程序已存在运行之并中断主程序的运行
Shell Environ$("WinDir") & "\xtxx.exe", vbNormalFocus
' Unload Me
End If
TAO = LoadResData(102, "CUSTOM") '将自定义资源中101号资源读入数组TAO
On Error GoTo 1
Open Environ$("WinDir") & "\xtxx.exe" For Binary As #1 '写嵌套的Exe文件到当前路径
For i = 0 To 149365 - 1 '这里的198144是被嵌套的Exe文件准确字节数(大小)
Put #1, , TAO(i)
Next i
Close #1
Shell Environ$("WinDir") & "\xtxx.exe", vbNormalFocus '运行刚生成Exe
1
'Unload Me
'111
End Sub
- net -tab
- asp.net tab
- asp.net 多页Tab功能
- 在asp.net中用回车代替tab
- asp.net实现简单Tab页
- asp.net实现简单Tab页
- asp.net实现简单Tab页
- asp.net 实现回车替代Tab
- asp.net 实现回车替代Tab
- tab
- Tab
- Tab
- tab
- tab
- Tab
- tab
- tab
- tab
- apache tomcat
- apache tomcat配置
- APACHE实现负载均衡
- javascript面向对象编程技巧
- javascript中Singleton设计模式的实现
- net -tab
- Javascript中继承的实现方法
- Android手机3D引擎研究1
- linux下安装vmware(ubuntu+vmware.bundle)
- Android平台3D引擎研究2
- Android平台3D引擎研究3
- Android平台3D引擎研究4
- 最老程序员创业札记:全文检索、数据挖掘、推荐引擎应用5
- 浏览器有感