批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[问题求助] 请教VBS不能创建对像

  1. set oDOM = WScript.GetObject("http://city.ip138.com/ip2city.asp")
  2. flag=0
  3. for i=1 to 10
  4.    if oDOM.readyState = "complete" then
  5.       flag=1
  6.       exit for
  7.    end if
  8.    WScript.sleep 500
  9. next
  10. if flag=0 then
  11.     WScript.Echo "timeout ..."
  12.     wscript.quit
  13. end if
  14. s=oDOM.documentElement.innerText
  15. Set Re = New RegExp
  16. Re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
  17. for each r in Re.Execute(s)
  18.      res=r
  19.      exit for
  20. Next
  21. WScript.Echo "IPAddress: " & res
  22. '设置剪切板的内容
  23. Dim Form, TextBox
  24. Set Form = CreateObject("Forms.Form.1")
  25. Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
  26. TextBox.MultiLine = True
  27. TextBox.Text = res
  28. TextBox.SelStart = 0
  29. TextBox.SelLength = TextBox.TextLength
  30. TextBox.Copy
  31. MyVar = MsgBox (res,64,"请Ctrl+V粘贴IP地址")
复制代码
以上代码我用VBSEDIT编译出来可以运行并且正常! 但是用脚本运行要报错. 请教大神怎么处理啊?

如何破解! 有没有更好的代码呀  后就是后面复制的部分!

TOP

没装 office,确切说是没装 vba



如何破解! 有没有更好的代码呀  后就是后面复制的部分!

TOP

弹出提示不好!~  我想应该有解决办法吧  ~?是吧?版主!

TOP

回复 7# pcl_test

谢谢!!

对于VBS脚本我疑惑的是编译成EXE可以运行得到IP地址到剪切板.为什么脚本运行不对

TOP

回复 9# pcl_test

谢谢.正在学习代码中......

TOP

返回列表