#include "kernel32.as" #include "user32.as" #define MUTEX_ALL_ACCESS 0x1f0001 #define PAGE_READONLY 0x02 #define ERROR_ALREADY_EXISTS 183
#defcfunc HMAC_SHA1 str p1, str p2 HS_p1 = p1 HS_p2 = p2 HS_SigLen = 0 HS_dest = ""
sdim test, 64 repeat 8 test += "testtest" loop
#define IID_IHTMLDocument "{626FC520-A41E-11CF-A731-00A0C9082637}" #define IID_IHTMLDocument2 "{332C4425-26CB-11D0-B483-00C04FD90119}" #define IID_IHTMLDocument3 "{3050f485-98b5-11cf-bb82-00aa00bdce0b}" #define IID_IHTMLDocument4 "{3050f69a-98b5-11cf-bb82-00aa00bdce0b}" #define CLSID_HTMLDocument "{25336920-03F9-11CF-8FD0-00AA00686F13}"
#include "encode.as" #uselib "urlmon.dll" #func URLDownload "URLDownloadToFileA"int,str,str,int,int #uselib "wininet.dll" #func DeleteUrlCacheEntry "DeleteUrlCacheEntryA" str
#uselib "libmecab.dll" #cfunc global mecab_new "mecab_new" int, str #cfunc global mecab_new2 "mecab_new2" str #cfunc global mecab_sparse_tostr "mecab_sparse_tostr" int, str #func global mecab_destroy "mecab_destroy" int
#uselib "urlmon.dll" #func URLDownload "URLDownloadToFileA"int,str,str,int,int axobj ie, "Shell.Explorer.2", 0, 0 ie->"Navigate" "http://www.bing.com/"