Nothva的博客

简易vb连接sql server实例Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCm

VB6.0需要引用Microsoft WMI Scripting代码为了便于修改，IP未做处理初衷（当前代码）只改默认网关192.168.199.200和192.168.199.253之间切换Dim pdDim lipOption Explicit '这是窗体代码Private Sub Command3_Click() pd = 1 MsgBox ChangeIP("1", "255.255.255.0", "192.168.1.1", "202.98.192.67", "2