net -tab

 

  ' 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