只找到读取的,但是不能设置。谢谢了!
解决方案 »
- 请问这个页面是怎么实现读取优酷视频的真实flv视频地址的?能用vb实现吗?
- 如何让语句一句一句的执行,请教?
- 调用vc的dll(有关串口),生成的exe可以正常运行,但是在编译环境中运行时,串口却释放不掉,高人入!
- 急!在线等!Treeview 控件我给它加了复选框,如何判断选中了某一个或者多个项?谢谢!
- [手头没有书和MSDN]文件打开以Append方式的Open File怎么写??
- 新建一WORD文档!在其上放置1个commandbutton和30个combobox.我想实现运行后点击command!所有的combobox都添加相同的值!怎么实现????
- vb中哪个函数可以用来开辟内存区的,功能就像c里的malloc
- 控件高手看过来{;-<
- vc中的函数void des_ecm(const void *i_blk, void *o_blk, void *key)如何在VB中声明?
- 送分!come on
- 如何将用户输入的含变量的代数式编译成机器码并输出计算结果?
- 哪位有FpFlp30.ocx,发一个给我看看,谢谢了!
http://community.csdn.net/Expert/topic/2641/2641325.xml?temp=.4726526调用一下函数:Function ChangeIP(IP As String, NM As String, GW As String) As String
'If MsgBox("no to exit", vbYesNo) = vbNo Then End
Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask
Dim strGateway, strGatewaymetric, objNetAdapter, errEnable, errGateways
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(IP) 'ip地址
strSubnetMask = Array(NM) '子网掩码
strGateway = Array(GW) '网关
strGatewaymetric = Array(1)
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
ChangeIP = "OK"
Else
ChangeIP = "FIN"
End If
NextEnd Function在XP、2003上通过。