Advertisement
Guest User

Untitled

a guest
Dec 14th, 2018
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim xmlhttp As New MSXML2.XMLHTTP
  2.  
  3. xmlhttp.Open "GET", "http://192.168.0.10/switch_cammode.cgi?mode=shutter", True
  4. xmlhttp.Send
  5.  
  6. xmlhttp.Open "GET", "http://192.168.0.10/exec_shutter.cgi?com=1st2ndpush", True
  7. xmlhttp.Send
  8.  
  9. xmlhttp.Open "GET", "http://192.168.0.10/exec_shutter.cgi?com=2nd1strelease", True
  10. xmlhttp.Send
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement