property CRLF : (ASCII character 13) & (ASCII character 10) set cut to "POST /mconn HTTP/1.1 Host: 192.168.0.1 Accept: */* Accept-Language: ja onnection: Keep-Alive Referer: http://192.168.0.1/conn? User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Mac_PowerPC) UA-OS: MacOS UA-CPU: PPC Content-type: application/x-www-form-urlencoded Extension: Security/Remote-Passphrase Content-length: 35 PP=1&LOGIN=ON&DISCONNECT=%90%D8%92f" set AppleScript's text item delimiters to return set cut to text items of cut set AppleScript's text item delimiters to CRLF set cut to cut as string tell application "Internet Explorer" set rf to item 1 of (GetWindowInfo (item 1 of (ListWindows))) end tell
20 :
set AppleScript's text item delimiters to "/" set LST to text items of rf set sv to item 3 of LST set bbs to item 6 of LST set sure to item 7 of LST set kaisuu to text returned of (display dialog "回数" default answer "") set fr to text returned of (display dialog "名前" default answer "") set ct to text returned of (display dialog "内容" default answer "") repeat with i from 1 to kaisuu repeat with j from 1 to round ((random number) * 10) + 1 set ct to ct & " " end repeat set dt to MT Encode URL ct set ed to "submit=%8F%91%82%AB%8D%9E%82%DE&FROM=" & fr & "&mail=sage&MESSAGE=" & dt & "&bbs=" & bbs ツ & "&key=" & sure & "&time=" & 1.005305372E+9 + (round ((random number) * 3000)) set ch to count character of ed set AppleScript's text item delimiters to return set ddd to ツ "POST /test/bbs.cgi HTTP/1.1 Host: " & sv & " Accept: */*
21 :
Accept-Language: ja Connection: Keep-Alive Referer: " & rf & " User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Mac_PowerPC) UA-OS: MacOS UA-CPU: PPC Cookie: NAME=; MAIL= Content-type: application/x-www-form-urlencoded Extension: Security/Remote-Passphrase Content-length: " & ch & " " & ed set ddd to text items of ddd set AppleScript's text item delimiters to CRLF set ddd to ddd as string
22 :
tell application "NetEvents 1.2.1 BG" try set addr to NameToAddr (sv) set str to OpenStream addr port 80 WriteStream str data ddd CloseStream str on error err number num "Script Error: " & err & " (" & num & ")" end try end tell if i > 0 and i mod 5 = 0 then --display dialog "5レス書込完了 続行なら回線切断のちOK" delay 2 tell application "NetEvents 1.2.1 BG" try set addr to NameToAddr ("192.168.0.1") set str to OpenStream addr port 80 WriteStream str data cut CloseStream str
23 :
on error err number num "Script Error: " & err & " (" & num & ")" end try end tell end if end repeat beep display dialog "書込み完了"