ฟอรั่ม PSsix

Would you like to react to this message? Create an account in a few clicks or log in to continue.

ฟอรั่มของบล็อก http://pssix.blogspot.com


3 posters

    ประกาศผลการแข่ง

    POS
    POS
    PSsix
    PSsix


    ประกาศผลการแข่ง Empty ประกาศผลการแข่ง Empty ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 1152
    ความนิยม : 326
    เข้าร่วมเมื่อ : 19/07/2010

    ประกาศผลการแข่ง Empty ประกาศผลการแข่ง

    ตั้งหัวข้อ by POS 22/04/11, 09:32 am

    กระทู้ต้นเหตุ [You must be registered and logged in to see this link.]

    การแข่งขันสร้างโปรแกรมตรวจหาไวรัสที่ Registry [You must be registered and logged in to see this link.]

    ลำดับการส่ง (ตัวเลขต่อท้าย คือตัวเลขเวลาที่ส่ง ซึ่งเสร็จภายในระยะเวลา 1 วันทั้งคู่)

    [You must be registered and logged in to see this image.]


    โค้ดคำสั่งของคุณ Aut

    Code:
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 496, 314, 192, 124)
    $Edit1 = GUICtrlCreateEdit("", 16, 8, 465, 257)
    $Button1 = GUICtrlCreateButton("Button1", 16, 280, 75, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Button2", 392, 280, 75, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    Global $rrr = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", $r3 = 0

    While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
          Case $GUI_EVENT_CLOSE
             Exit
          Case $Button1
             RegDelete("HKEY_CURRENT_USER\123")
             For $i = 1 To 100
                $rvar = RegEnumVal($rrr, $i)
                If @error Then ExitLoop
                $rread = RegRead($rrr, $rvar)
                RegWrite("HKEY_CURRENT_USER\123", $rvar, "REG_SZ", $rread)
             Next
             GUICtrlSetData($Edit1, "สำรองแล้วนะ" & @CRLF)
          Case $Button2
             GUICtrlSetData($Edit1, "หาไวรัส..." & @CRLF)
             For $i = 1 To 100
                $r1 = RegEnumVal($rrr, $i)
                If @error Then ExitLoop

                For $i2 = 1 To 100
                   $r2 = RegEnumVal("HKEY_CURRENT_USER\123", $i2)
                   If @error Then ExitLoop
                   If StringInStr($r1, $r2) Then $r3 = 1
                Next

                If $r3 = 0 Then GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & "เจอไวรัสคือ " & $r1 & @CRLF)
                $r3 = 0
             Next
             GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & "เสร็จ")
       EndSwitch
    WEnd


    โค้ดคำสั่งของคุณ sak20102005

    Code:
        #AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
        #NoTrayIcon
       #include <GuiEdit.au3>
        #include <ButtonConstants.au3>
        #include <EditConstants.au3>
        #include <GUIConstantsEx.au3>
        #include <WindowsConstants.au3>
       #Include <File.au3>

        Global $hForm, $hEdit, $Button1, $Button2, $title = 'RegVirScan'
        Global $nMsg, $i, $REV, $RR, $Button3, $PID, $newtitle = 'RegVirScanning...'
       Global $tiptxt = 'See message RegVirScan.log to the desktop'&@CRLF&'ถ้าแสกนครั้งเดียว กรุณาแสกนซ้ำอีกครั้ง'
       Global $iconfile = @ScriptDir&'\scan.ico', $readreg
       Global $hkeynum = 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run'
       Global $hkeyread = 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run'
       $hForm = GUICreate($title, 496, 314, -1, -1)
        GUISetIcon($iconfile, -1, $hForm)
       $hEdit = GUICtrlCreateEdit("", 16, 8, 465, 257)
        GUICtrlSetData(-1, "")
        $Button1 = GUICtrlCreateButton("Scan", 16, 280, 75, 25, $WS_GROUP)
        GUICtrlSetCursor(-1, 0)
       $Button2 = GUICtrlCreateButton("Open log", 405, 280, 75, 25, $WS_GROUP)
       GUICtrlSetCursor(-1, 0)
       GUICtrlCreateLabel("Design by:sak20102005", 186, 282, 118, 17)
        GUICtrlSetState(-1, $GUI_DISABLE)

       GUISetState(@SW_SHOW)

        While 1
            $nMsg = GUIGetMsg()
            Switch $nMsg
                Case $GUI_EVENT_CLOSE
                    For $x = 255 To 0 Step -3
                   WinSetTrans($title, "", $x)
                   Sleep(1)
                Next
                   Exit
             Case $Button1
                virautorun()
                $PID = ProcessExists("notepad.exe")
                If $PID Then ProcessClose($PID)
                WinSetTitle($title,"", $newtitle)
                If _GUICtrlEdit_GetText($hEdit) <> '' Then _GUICtrlEdit_SetText($hEdit, '')
                For $i = 1 to 100
                    $REV = RegEnumVal($hkeynum, $i)
                    $RR = RegRead($hkeyread, $REV)
                    If @error <> 0 Then ExitLoop
                   _GUICtrlEdit_AppendText($hEdit, @CRLF & $RR)
                       Sleep(500)
                Next
                   WinSetTitle($newtitle, "", $title)
                   ToolTip($tiptxt, 365, 350, "Scan complete.", 1, 1)
                   _FileWriteLog(@DesktopDir & "\RegVirScan.log", _GUICtrlEdit_GetText($hEdit))
                   Sleep(4000)
                   ToolTip("")
             Case $Button2
                If FileExists(@DesktopDir & "\RegVirScan.log") Then
                   ShellExecute(@DesktopDir & "\RegVirScan.log")
                Else
                   MsgBox(0, "", "Can not found File.log")
                EndIf
            EndSwitch
        WEnd

       Func virautorun()
          If Not RegRead($hkeyread, "Virustest") = 'Virus.exe' Then
             MsgBox(0, "", "No, virus.")
             ToolTip("Write Virus to registry. You try Scan.", 365, 350, "")
             RegWrite($hkeyread, "VirusTest", "REG_SZ", "Virus.exe")
          Else
             MsgBox(0, "", "Virus processing..")
          EndIf
       EndFunc



    ########ผลการทดสอบการทำงานของโปรแกรมต่อด้านล่างครับ##################
    POS
    POS
    PSsix
    PSsix


    ประกาศผลการแข่ง Empty ประกาศผลการแข่ง Empty ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 1152
    ความนิยม : 326
    เข้าร่วมเมื่อ : 19/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by POS 22/04/11, 10:13 am

    สรุปผลการทำงานของโปรแกรม ผมจะโค้ทกติกามาให้อ่านก่อน

    ผมจะทดสอบโปรแกรมว่าทำงานได้จริงดังนี้

    1. คลิกปุ่ม Button1 แล้วมีการบันทึกข้อมูลในคีย์ HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run ทั้งหมดเก็บเอาไว้

    2. จะสร้างค่าเพิ่มในคีย์ HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run จำนวน 1 ค่า เพื่อจำลองสถานการณ์ว่ามีไวรัสเขียนคำสั่งเพิ่มเข้ามา

    3. คลิกปุ่ม Button2 เพื่อให้โปรแกรมนำเอาข้อมูลที่สำรองไว้มาเปรียบเทียบกับข้อมูลในคีย์ HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run (ตอนนี้มีค่าแปลกปลอมเพิ่มขึ้น 1 ค่า) ถ้าโปรแกรมทำงานถูกต้องจะแสดงค่าที่แปลกปลอม 1 ค่านั้นออกมาให้เห็นทันที่ช่อง Edit1

    หมายเหตุ
    ผมจะทดสอบโปรแกรม 3 รอบ โดยเพิ่มค่าในคีย์ HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run ทีละ 1 เพื่อดูโปรแกรมสามารถตรวจหาค่าที่เพิ่มเข้ามาครบทุกรอบหรือไม่


    ของคุณ Aut ทำได้ตามกติกาคือ มีการใช้คำสั่งลูป และแสดงผลในช่อง Edit เป็นชื่อค่าที่เพิ่มเข้ามาใน Registry แต่แสดงเฉพาะชื่อตรงคอลัมน์ Name ใน Registry Ediotr เท่านั้น

    [You must be registered and logged in to see this image.]

    ของคุณ Sak ทำได้ตามกติกาเช่นกันคือ มีการใช้คำสั่งลูป มีการแสดงผลในช่อง Edit ค่าที่เพิ่มเข้ามากับค่าเดิมยังนำมาแสดงร่วมกัน (มีคำว่า virus.exe คั่น) และแสดงเฉพาะคำสั่งตรงคอลัมน์ Data ใน Registry Ediotr เท่านั้น

    [You must be registered and logged in to see this image.]

    สรุปผลการแข่ง
    ด้วยเวลาที่กระชั้น และข้อกำหนดที่ผมเขียนอาจจะคลุมเครือไป (อันที่จริงผมต้องการให้แสดงทั้งข้อมูลตรงส่วน Name และ Data จะได้รู้ว่าไวรัสทำอะไรเพิ่มเข้ามา) การสามารถทำโปรแกรมได้ในเวลาที่กำหนดถือว่าผ่านทั้งคู่ ส่วนผู้อ่านกระทู้ท่านใดมีข้อเสนอแนะสำหรับวิธีการเขียนโปรแกรม หรือมีโค้ดที่สั้นกว่า ก็นำเสนอมาแบ่งกันได้ครับ แต่ขออย่าด่ากันอีก วันนี้จึงขอจบแต่เพียงเท่านี้ สวัสดี
    POS
    POS
    PSsix
    PSsix


    ประกาศผลการแข่ง Empty ประกาศผลการแข่ง Empty ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 1152
    ความนิยม : 326
    เข้าร่วมเมื่อ : 19/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by POS 22/04/11, 10:37 am

    เพิ่มเติมอีกนิดหนึ่ง

    ผมจะไม่ตอบคำถามทาง PM นะครับ (เนื่องจากส่ง PM กันมาหลายคน)มีข้อสงสัยเกี่ยวกับ AutoIt ตั้งกระทู้ถามได้ที่บอร์ด การตอบทาง PM จะไม่มีประโยชน์ต่อผู้อื่น เพราะรู้กันเพียงคนถามคนตอบเท่านั้น (ยกเว้นคำถามเกี่ยวกับโปรแกรมอันตรายห้ามถาม)

    ส่วนท่านที่ส่งไฟล์ไวรัสที่เขียนจาก AutoIt มาให้ดูเข้าใจว่าไปดัดแปลงมาจากคำสั่งภาษาอื่น เพราะคำสั่งค่อนข้างดูจับฉ่ายเกินไป อย่างถ้ามีบรรทัดนี้

    REGWRITE("HKCU\software\Microsoft\Windows\CurrentVersion\Policies\System","DisableRegistryTools","REG_DWORD",1)
    REGWRITE("HKCU\software\Microsoft\Windows\CurrentVersion\Policies\System","DisableTaskMgr","REG_DWORD",1)

    ก็ไม่จำเป็นต้องมีบรรทัดนี้

    IF WINACTIVATE("Registry Editor")THEN PROCESSCLOSE("Regedit.exe")
    IF WINACTIVATE("Task Manager")THEN PROCESSCLOSE("TaskMgr.exe")


    ถ้าอยากจะเขียนไวรัสจริงๆ ควรศึกษาให้เข้าใจคำสั่ง AutoIt และระบบ Registry (ผมไม่รับปรึกษาการทำไวรัส)คุณไม่ต้องดิ้นรนทำไวรัสหรอกครับ ถ้าศึกษา AutoIt จนพื้นฐานแน่นแล้วไวรัสก็ทำได้เองโดยไม่ต้องพึ่งใคร ซึ่งหลายคนก็เบื่อหรือท้อจนเลิกไปก่อนที่จะถึงจุดนั้น เพราะทางเดินนั้นต้องไปด้วยตัวเอง
    sak20102005
    sak20102005
    ระงับสมาชิก
    ระงับสมาชิก


    ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 96
    ความนิยม : 4
    เข้าร่วมเมื่อ : 07/04/2011

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by sak20102005 22/04/11, 11:39 am

    จริงๆแล้วโค๊ดของผมใส่ลูกเล่นมากไปหน่อย ก็เลยยาว เพราะอยากทำให้ดูน่าใช้ขึ้น
    ถ้าตัดลูกเล่นออกไป จะเหลือในส่วนโค๊ดที่ต้องใช้งานจริงๆไม่มากนัก.
    ---------------------------------------------------------------------------------------------------------
    เดี๋ยวถ้าผมมีเวลา จะพัฒนาการแจ้งเตือนว่ามีไวรัสเข้ามาฝังตัวอยู่ในระบบ Registry หรือใน System32
    และทำการลบไวรัสออกให้อัตโนมัติ
    ---------------------------------------------------------------------------------------------------------
    ผมแก้ไขโค๊ดในส่วนที่ท่าน Pos ต้องการให้แล้วนะครับ คิดเดี๋ยวนั้น ทำเด๊๋ยวนั้น ไม่ต้องรอ 3วัน 7 วัน
    ----------------------------------------------------------------------------------------------------------------------
    Old code
    Code:

    _GUICtrlEdit_AppendText($hEdit, @CRLF & $RR)
    -----------------------------------------------------------------------------------------------------------------------
    New code
    Code:

    _GUICtrlEdit_AppendText($hEdit, @CRLF & 'Value name:'& $REV&@CRLF &'Value data:' & $RR&@CRLF)


    อธิบาย:
    AppendText หมายถึง การเขียนข้อความเป็นชุด ถ้าLoopข้อความออกมาก็จะได้ข้อความออกมาเป็นชุดๆ
    @CRLF หมายถึง ขึ้นบันทัดใหม่ให้ข้อความ
    $REV คือ ตัวแปรของ Value name
    $RR คือ ตัวแปรของ Value data
    & ใช้สำหรับ เชื่อมโยงชุดคำสั่ง
    ------------------------------------------------------
    ถึงผมมีความรู้เเพียงน้อยนิด แต่ก็อยากถ่ายทอดความรู้ที่มีอยู่ให้ โดยไม่ปิดบัง
    ถ้าจะให้อะไรกับใคร มักจะไม่ค่อยหวังสิ่งใดๆตอบแทน ขอเพียงกำลังใจและคำขอบคุณก็พอ
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by aut 22/04/11, 03:27 pm

    พอละงับสู้กับคนจิงไม่กลัวสู้กับพวกปลิ้นป้อนตลบตาแลง กลัวคับ วันนี้พูดอย่างพุ่งนี้พูดอีกอย่าง ไปดูกระทู้ [You must be registered and logged in to see this link.] แม่งเปลี่ยนข้อความที่ตัวเองพิมว่าเราไปหมด กลายเป็นคนดีพิบตาเลย เหอๆ แถมเอาโคดเรามาอธิบายไม่รู้อะไรจิงเอาแก้ให้ยาวอีก กากของจิง เหอๆ เราทำแบบนั้นให้สั้นกว่ายังได้ ก็ว่าอ่านะคนโง่ก็ยังโง่ขนาดดูโคดต้นแบบมาดัดแปงแก้ให้ยาวอีก กากเอ้ย คนเมพไม่เมพก็วัดกันตงนินะ

    คนอวดเก่ง ที่เก่งจิงทำได้จิง กับคนอวดเก่ง ที่กากจิงไม่มีเก่งอะไรเลยหลอกประชาชนไปวันวัน โดนจับได้ก้อแถไปเรื่อย อันไหนดีกว่ากันคนอ่านตัดสินจัยได้ เพิ่งจะเห็นคนโง่ยอตัวเองก็วันนี้อ่านะ เราจบละพวกปลิ้นป้อนตลบตาแลงไม่ยากไปยุงด้วย เกมเพิ่งจาอัปดันใหม่ลงดันหาของดีก่า

    ชินจัง
    sak20102005
    sak20102005
    ระงับสมาชิก
    ระงับสมาชิก


    ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 96
    ความนิยม : 4
    เข้าร่วมเมื่อ : 07/04/2011

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by sak20102005 22/04/11, 03:54 pm

    อันนี้ ปรับปรุงโค๊ดมาให้ใหม่ ไฉไลกว่าเดิม ใครไม่เซฟเก็บไว้ศึกษา น่าเสียดายอย่างยิ่ง
    ใส่คำสั่งตรวจสอบข้อผิดพลาดลงไปในโค๊ด สบายใจได้เรื่อง Error! หรือความไม่สมบูรณ์ของโปรแกรม
    ใครไม่เข้าใจโค๊ดคำสั่งตรงไหนก็บอก ผมอธิบายให้ได้ วันหน้าถ้ามีโอกาส จะเติมคำสั่งกำจัดไวรัสให้

    Code:
    #AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
        #NoTrayIcon
       #include <GuiEdit.au3>
        #include <ButtonConstants.au3>
        #include <EditConstants.au3>
        #include <GUIConstantsEx.au3>
        #include <WindowsConstants.au3>
       #Include <File.au3>

        Opt("MustDeclareVars", 1)

       Global $hForm, $hEdit, $Button1, $Button2, $title = 'RegVirScan [Hkey Run]'
        Global $nMsg, $i, $REV, $RR, $Button3, $PID, $starttitle = 'Scanning...', $endtitle = 'Scan completed.'
       Global $titlemessage = 'Scanning Again. Open log. See message file.log on the desktop.'
       Global $iconfile = @ScriptDir&'\scan.ico', $readreg, $Button_clear
       Global $hkeynum = 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run'
       Global $hkeyread = 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run'
       Global $chklog = 'Can not found File.log'

       Main()
       Func Main()
       $hForm = GUICreate($title, 510, 314, -1, -1)
        GUISetIcon($iconfile, -1, $hForm)
       $hEdit = GUICtrlCreateEdit("", 8, 8, 493, 257)
        $Button1 = GUICtrlCreateButton("Scan", 16, 280, 75, 25, $WS_GROUP)
        GUICtrlSetCursor(-1, 0)
       $Button2 = GUICtrlCreateButton("Open log", 405, 280, 75, 25, $WS_GROUP)
       GUICtrlSetCursor(-1, 0)
       $Button_clear = GUICtrlCreateButton("Clear", 320, 280, 75, 25, $WS_GROUP)
       GUICtrlSetCursor(-1, 0)
       GUICtrlCreateLabel("Design by:sak20102005", 150, 283, 118, 17)
        GUICtrlSetState(-1, $GUI_DISABLE)
        GUISetState(@SW_SHOW)
        _GUICtrlEdit_SetReadOnly($hEdit, True)
        While 1
            $nMsg = GUIGetMsg()
            Switch $nMsg
             Case $GUI_EVENT_CLOSE
                If WinGetTitle($titlemessage) Then
                        For $x = 255 To 0 Step -1
                   WinSetTrans($titlemessage, "", $x)
                   Sleep(0.9)
                    Next
                   Exit
                Else
                   ExitLoop
                EndIf
             Case $Button1
                If GUICtrlRead($hEdit) <> '' Then WinSetTitle($titlemessage,"", $starttitle)
                $PID = ProcessExists("notepad.exe")
                If $PID Then ProcessClose($PID)
                WinSetTitle($title,"", $starttitle)
                If _GUICtrlEdit_GetText($hEdit) <> '' Then _GUICtrlEdit_SetText($hEdit, '')
                For $i = 1 to 100
                    $REV = RegEnumVal($hkeynum, $i)
                    $RR = RegRead($hkeyread, $REV)
                    If @error <> 0 Then ExitLoop
                   _GUICtrlEdit_AppendText($hEdit, @CRLF & 'Value name:'& $REV&@CRLF &'Value data:' & $RR&@CRLF)
                   Sleep(500)
                Next
                   WinSetTitle($starttitle, "", $endtitle)
                   _FileWriteLog(@DesktopDir & "\RegVirScan.log", _GUICtrlEdit_GetText($hEdit))
                   Sleep(2000)
                        WinSetTitle($endtitle, "", $titlemessage)
             Case $Button2
                If FileExists(@DesktopDir & "\RegVirScan.log") Then
                   ShellExecute(@DesktopDir & "\RegVirScan.log")
                Else
                   MsgBox(0, "", $chklog)
                EndIf
             Case $Button_clear
                If GUICtrlRead($hEdit) <> '' Then GUICtrlSetData($hEdit, "")
            EndSwitch
        WEnd
    EndFunc
    sak20102005
    sak20102005
    ระงับสมาชิก
    ระงับสมาชิก


    ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 96
    ความนิยม : 4
    เข้าร่วมเมื่อ : 07/04/2011

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by sak20102005 22/04/11, 04:04 pm

    พอละงับสู้กับคนจิงไม่กลัวสู้กับพวกปลิ้นป้อนตลบตาแลง กลัวคับ วันนี้พูดอย่างพุ่งนี้พูดอีกอย่าง ไปดูกระทู้ [You must be registered and logged in to see this link.] แม่งเปลี่ยนข้อความที่ตัวเองพิมว่าเราไปหมด กลายเป็นคนดีพิบตาเลย เหอๆ แถมเอาโคดเรามาอธิบายไม่รู้อะไรจิงเอาแก้ให้ยาวอีก กากของจิง เหอๆ เราทำแบบนั้นให้สั้นกว่ายังได้ ก็ว่าอ่านะคนโง่ก็ยังโง่ขนาดดูโคดต้นแบบมาดัดแปงแก้ให้ยาวอีก กากเอ้ย คนเมพไม่เมพก็วัดกันตงนินะ
    คนอวดเก่ง ที่เก่งจิงทำได้จิง กับคนอวดเก่ง ที่กากจิงไม่มีเก่งอะไรเลยหลอกประชาชนไปวันวัน โดนจับได้ก้อแถไปเรื่อย อันไหนดีกว่ากันคนอ่านตัดสินจัยได้ เพิ่งจะเห็นคนโง่ยอตัวเองก็วันนี้อ่านะ เราจบละพวกปลิ้นป้อนตลบตาแลงไม่ยากไปยุงด้วย เกมเพิ่งจาอัปดันใหม่ลงดันหาของดีก่า
    ----------------------------------------------------------------------------------------------
    ทำพีรามิด เขาต้องทำให้มันลูกใหญ่ๆ ใช้โค๊ดน้อยๆ ใครทำได้บ้างไหมล่ะ่
    แต่ผมทำได้ ไม่อยากจะคุย เดี๋ยวจะหาว่าโม้ ถ้าสามารถเขียนไฟล์ Library สคริ๊ป includ ได้

    นี่แหละเขาเรียกว่า 'พาล' ของแท้ ว่าจะไม่โต้ตอบแล้วนา อดไม่ได้
    พอเขาให้เขียนโปรแกรม เพื่อใช้งานเข้าจริงๆ เอาโค๊ดมาตรวจสอบแล้ว ไม่ได้เรื่องเลย
    ใครไม่เชื่อลองรันใช้งาน เปรียบเทียบกันดูก็ได้ แล้วจะรู้ว่า ใคร กากก ไม่ กากก


    แก้ไขล่าสุดโดย sak20102005 เมื่อ 22/04/11, 04:47 pm, ทั้งหมด 1 ครั้ง
    sak20102005
    sak20102005
    ระงับสมาชิก
    ระงับสมาชิก


    ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 96
    ความนิยม : 4
    เข้าร่วมเมื่อ : 07/04/2011

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by sak20102005 22/04/11, 04:37 pm

    ระบบ Hkey Autorun ใน Registry ไม่มีโปรแกรมของใครที่แข่งขัน

    สามารถตรวจว่ามีไวรัสได้โดยตรง

    ทำได้แค่แสกนและดูที่ file.log เพื่อเปรียบเทียบกัน

    แต่มีโปรแกรมของใครบางคนตรวจสอบว่ามีไวรัสเฉยเลย อะไร?!?จะขนาดนั้น.
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by aut 22/04/11, 04:50 pm

    กากของจิงไม่ยอมรับตัวเอง ดูท่าน POS ห้ายทำโปรแกรมดิ ห้ายทำอะไรเขาให้หาตัวregที่เพิ่มสมมุดว่าเป็นไวรัสหาได้เปล่า โปรแกรมกากเอาทั้งregตัวเก่าตัวใหม่รวมกันหมดมีชื่อvirus.exeแถมออกมาอิก เอามาจากนรกไหนอะ นายกาก อานนี้ท่านposคงเมตตาให้ผ่านเพาะสงสารลูกเขียดตัวดำส่งโปรแกรมกากแถมช้าก่าเราโค้ดก็ยาวเป็นงูหลามโดนรถทับ เหอ ม้ายสำนึกตัวเลย คนอ่านดูก้อรู้ว่าใครทำโปรแกรมได้ใครกากได้ผ่านเพาะสงสาร เหอๆ สำนึกตัวนะนายอวดเก่งไปเรือยมีไรเก่งจิงมั้งกาก อยากฉลาดดื่มไบกอนแล้วไปเกิดใหม่ซะจาได้ฉลาดขึ้นก่านี้อะ นายกาก

    ชินจัง2
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by aut 22/04/11, 04:52 pm

    แถมห้าย

    ปืนหยายบูชูก้า oIIo

    เอาปายอีกหลายกะบอก
    oIIo
    oIIo
    oIIo
    oIIo
    oIIo
    oIIo
    oIIo
    oIIo
    oIIo



    em231 em231 em231 em231 em231 em231 em231 em231
    sak20102005
    sak20102005
    ระงับสมาชิก
    ระงับสมาชิก


    ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 96
    ความนิยม : 4
    เข้าร่วมเมื่อ : 07/04/2011

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by sak20102005 22/04/11, 05:12 pm

    em218 เดี๋ยวนำบทความที่เกี่ยวของมาลงแทน


    แก้ไขล่าสุดโดย sak20102005 เมื่อ 22/04/11, 11:30 pm, ทั้งหมด 1 ครั้ง
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by aut 22/04/11, 05:18 pm

    แถไปเรื่องอธิบายโคดอีกแย้ว เหอ มันเกี่ยวกับที่เถียงกันตงไหนอ่านายกากเราทำถูกต้องตามจุดประสงโปรแกรมทุกอย่างนายทำไม่ได้แล้วริจามาอธิบายโค้ด

    เพื่อ

    เพื่อ

    เพื่อ

    เพื่อ

    หน้าไม่อาย เอาบาซูก้าไปอีกอานนุง oIIIo หยายก่าเดิมแย้วก็แถต่อปายนะกาก

    sak20102005
    sak20102005
    ระงับสมาชิก
    ระงับสมาชิก


    ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 96
    ความนิยม : 4
    เข้าร่วมเมื่อ : 07/04/2011

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by sak20102005 22/04/11, 05:25 pm

    เรารู้ตัวดีว่า ไม่มีวิธีไหน ที่จะทำให้ท่านหาย กากก
    โค๊ดของท่านที่เขียนน่ะ่ ลองใส่ Function และเขียนคำสั่งตรวจสอบ Error! ลงในโค๊ดซิ Error! ขึ้นบานเลย.


    แก้ไขล่าสุดโดย sak20102005 เมื่อ 22/04/11, 11:32 pm, ทั้งหมด 2 ครั้ง
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by aut 22/04/11, 05:29 pm

    sak20102005 พิมพ์ว่า:
    ----------------------------------------------------------------------------------------------
    เรารู้ตัวดีว่า ไม่มีวิธีไหน ที่จะทำให้ท่านหาย กากก แต่อ่านข้อความของท่านแล้ว จำเป็นต้องสวนกลับ
    ตั้งแต่คุยกับท่านมาต้องนมนาน เห็นท่านเขียนโค๊ดลูปอะไรของท่านเพียงครั้งเดียวเท่านั้น ที่เหลือออกทะเลหมด โค๊ดโปรแกรมที่เขียนแข่ง เขียนเหมือนเด็กอนุบาลเขียน ไม่รู้จะนำกลับไปพัฒนายังไง?!?


    อานนี้กากของจิงลูบครั้งเดียว เหอ เหอ ไม่ดูดีก่อนว่ากี่ลูบกันแน่ กากยังดูโคดไม่ออกอีกว่ามันเป็นลูบซ้อนลูบ เผยความกากของจิงมาแล้ว เหอ เหอ

    เอากลับไปพัฒนา? ไปพัฒนาอะไร ทำมาย หากินกับของเก่าจนชินหรืองายนายกาก เขียนเป็นแต่โคดเก่าซ้ำไปซ้ำมาไม่รู้จักคิดใหม่ เหอ เหอ คิดว่าตังเองเก่งหรา กากนะพอว่า
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by aut 22/04/11, 05:45 pm

    [quote="sak20102005"]

    โค๊ดของท่านที่เขียนน่ะ่ ลองใส่ Function และเขียนคำสั่งตรวจสอบ Error! ลงในโค๊ดซิ Error! ขึ้นบานเลย.

    ทำมายต้องใส่ฟังสั้นใส่ไปเพื่อ

    ใส่ไปเพื่อ
    ใส่ไปเพื่อ
    ใส่ไปเพื่อ
    ใส่ไปเพื่อ
    กากนะนาย บอกคำตอบนี้ให้ด้ายก่อน ใส่ไปเพื่อ ใส่ไปเพื่อ ใส่ไปเพื่อ

    แย้วใช้ autoit รู้จิงสักเรื่องไหมกาก มานมีตัวตรวจโคดผิดตั้งแต่ตอนทำเป็น exe แล้ว กากจิง อารายคือคำสั่งตรวจ eorror งานนี้มีหน้าแตกตอบมาเลยเด๋วเราไปตั้งถามที่บอด autoit เลยว่าคำสั่งที่นายกากว่าใช่อะเป่า เหอๆ หน้าจะความคิดกากที่ชอบอธิบายแบบคิดเอาเองว่าเสียละมากก่านะ

    em234
    sak20102005
    sak20102005
    ระงับสมาชิก
    ระงับสมาชิก


    ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 96
    ความนิยม : 4
    เข้าร่วมเมื่อ : 07/04/2011

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by sak20102005 22/04/11, 05:49 pm

    ตอบกลับอย่างงี้ เข้าใจว่าคงไม่อนุญาตให้อธิบายโค๊ดแน่ๆ

    ไม่เห็นมีอะไรใหม่ ลูป 1 ถึง 100 เมื่อเทียบเคียงแล้ว ก็ไม่แตกต่างจากที่มีอยู่ใน Help



    แก้ไขล่าสุดโดย sak20102005 เมื่อ 22/04/11, 11:35 pm, ทั้งหมด 1 ครั้ง
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by aut 22/04/11, 05:53 pm

    เข้าใจละนายพยายามเอาโคดเอาไปดัดแปง แต่ด้วยสมองอันน้อยนิดแก้ไปแย้วเลย eorror ขึ้นบาน เหอ เหอ สมเพชวะ อธิบายโคดมาดิน่าจะอธิบายผิดเสียมากก่าสมองจะรับลูบระดับเมพได้เหรอ แย้วมีปัญหาไรกับโคดเรา จากทำ for 100 แล้วทำมาย มีข้อห้ามเหรอ ทำไม่ได้ก็ยอมรับซะ อธิบายไม่ออกก็ยอมรับซะ มันจาตายให้ด้ายเหรอที่เราเก่งก่านาย




    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by aut 22/04/11, 05:58 pm

    กลับไปดูโคดของจอมกาก มันก็ใส่ for 100 เหมือนกัน เหอ เหอ ถ้ามันโฟดเองคงลบไปแย้ว แต่ว่าละสมองมันไม่รับเห็นแค่ for 100 ก็เอามาแค่นั้นคิดไรเกินก่านั้นไม่ด้าย ออกจากกะลาแย้วยอมรับซะว่าถึงเราจะเล่นเกม บอทเกม กากที่อวดตัวเก่งแปดภาษายังไม่มีสมองคิดได้เท่าเราเลย งี้เราก็เมพสุดในสามโรคแล้วอะดิ งิงิ
    sak20102005
    sak20102005
    ระงับสมาชิก
    ระงับสมาชิก


    ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 96
    ความนิยม : 4
    เข้าร่วมเมื่อ : 07/04/2011

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by sak20102005 22/04/11, 06:02 pm

    แย้วใช้ autoit รู้จิงสักเรื่องไหมกาก มานมีตัวตรวจโคดผิดตั้งแต่ตอนทำเป็น exe แล้ว กากจิง อารายคือคำสั่งตรวจ eorror งานนี้มีหน้าแตกตอบมาเลยเด๋วเราไปตั้งถามที่บอด autoit เลยว่าคำสั่งที่นายกากว่าใช่อะเป่า เหอๆ หน้าจะความคิดกากที่ชอบอธิบายแบบคิดเอาเองว่าเสียละมากก่านะ
    ----------------------------------------------------------------------------------------------
    ถ้าเป็นคนอื่น ผมจะบอกให้ว่า วิธีเขียนไป ตรวจสอบ Error! ไป เขาทำกันยังไง?

    แต่สำหรับท่าน ป่วยการที่จะบอก พอเวลาให้เขียนโปรแกรมที่ไม่ใช่ของตัวเองเข้าจริงๆ

    ดันเอาตัวอย่างลูป ที่มีอยู่ใน Help มาใช้เฉยเลย.
    sak20102005
    sak20102005
    ระงับสมาชิก
    ระงับสมาชิก


    ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 96
    ความนิยม : 4
    เข้าร่วมเมื่อ : 07/04/2011

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by sak20102005 22/04/11, 06:14 pm

    เข้าใจละนายพยายามเอาโคดเอาไปดัดแปง แต่ด้วยสมองอันน้อยนิดแก้ไปแย้วเลย eorror ขึ้นบาน เหอ เหอ สมเพชวะ อธิบายโคดมา

    ท่านกำลังคิดว่า ผมไม่เข้าใจโค๊ดของท่าน คิดผิด คิดใหม่ได้นะ



    แก้ไขล่าสุดโดย sak20102005 เมื่อ 22/04/11, 11:37 pm, ทั้งหมด 1 ครั้ง
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by aut 22/04/11, 06:14 pm

    sak20102005 พิมพ์ว่า:
    แย้วใช้ autoit รู้จิงสักเรื่องไหมกาก มานมีตัวตรวจโคดผิดตั้งแต่ตอนทำเป็น exe แล้ว กากจิง อารายคือคำสั่งตรวจ eorror งานนี้มีหน้าแตกตอบมาเลยเด๋วเราไปตั้งถามที่บอด autoit เลยว่าคำสั่งที่นายกากว่าใช่อะเป่า เหอๆ หน้าจะความคิดกากที่ชอบอธิบายแบบคิดเอาเองว่าเสียละมากก่านะ
    ----------------------------------------------------------------------------------------------
    ถ้าเป็นคนอื่น ผมจะบอกให้ว่า วิธีเขียนไป ตรวจสอบ Error! ไป เขาทำกันยังไง?

    แต่สำหรับท่าน ป่วยการที่จะบอก พอเวลาให้เขียนโปรแกรมที่ไม่ใช่ของตัวเองเข้าจริงๆ

    ดันเอาตัวอย่างลูป ที่มีอยู่ใน Help มาใช้เฉยเลย.


    กลัวเราเอาไปถามที่บอด autoit อ่าดิ เหอ เหอ กากแบบนี้คงไม่คิดว่าคำสั่ง ConsoleWrite เป็นคำสั่งตรวจ error นะอายเขา กากของจิงเลย แย้วเอาตัวอย่างใน help จากทำมาย คำสั่งมานก็ต้องใช้ลูปดึงเอาชื่อออกมาหรือนายไม่ทำตามตัวอย่างนั้น
    คำสั่งมานก็ต้องใช้ลูปดึงเอาชื่อออกมาหรือนายไม่ทำตามตัวอย่างนั้น แล้วจามี help ไว้ทำมาย
    คำสั่งมานก็ต้องใช้ลูปดึงเอาชื่อออกมาหรือนายไม่ทำตามตัวอย่างนั้น แล้วจามี help ไว้ทำมาย
    คำสั่งมานก็ต้องใช้ลูปดึงเอาชื่อออกมาหรือนายไม่ทำตามตัวอย่างนั้น แล้วจามี help ไว้ทำมาย
    คำสั่งมานก็ต้องใช้ลูปดึงเอาชื่อออกมาหรือนายไม่ทำตามตัวอย่างนั้น แล้วจามี help ไว้ทำมาย
    เฮ้ยตอบมาดิ หาเรื่องแถไปอีกดิ อ้อคนเก่งแปดพาสานี่คงคิดวิธีพิศดารก่าในตัวอย่างได้นะเอ้อ หน้าอายวะแถไปเรือย ไม่อายตัวเองบ้างหราแค่นี้คนก็เห็นตัวที่แท้จิงนายหมดแย้ว
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by aut 22/04/11, 06:21 pm

    sak20102005 พิมพ์ว่า:
    เข้าใจละนายพยายามเอาโคดเอาไปดัดแปง แต่ด้วยสมองอันน้อยนิดแก้ไปแย้วเลย eorror ขึ้นบาน เหอ เหอ สมเพชวะ อธิบายโคดมา

    ท่านกำลังคิดว่า ผมไม่เข้าใจโค๊ดของท่าน คิดผิด คิดใหม่ได้นะ

    เดี๋ยวพรุ่งนี้ว่างๆ ผมจะมาแถ แนวคิดการสร้างโปรแกรมของท่าน ออ่นกว่าเด็กอนุบาลอีก

    แล้วนำโค๊ดของท่านไปแก้ไขปรับปรุงเสียใหม่ ไม่ให้เกิด Error! แลัวนำมาลงให้ใหม่

    คนอื่นจะได้ใช้งานโปรแกรมของท่านได้.

    อ้างขอไปวันพุ่งนี้ วันนี้คิดหัวแทบแตกเลยอะดิ เอาโค้ดไปแก้แล้วเออเรอบาน ขนาดของมานเองยังทำให้โปรแกรมทำงานตามคุงpos บอกมาไม่ได้เลย คิดง่ายแบบนี้จาขโมยโคดเราไปแก้แล้วไปบอกคนอื่นว่าทำเองอะเป่า กลัวจิงพวกขี้โมยนี่ หาข้ออ้างว่าเอาโค้ดไปแก้ปรับปรุงที่แท้ตัวเองทำให้แตกต่างไม่ได้ ไม่มีปัญญาทำเลยทำตัวเป็นปลิงดูดเอาความคิดระดับเมพของเราไปใช้

    นายกากไม่ต้องเสียเวลาแก้นะ แค่อธิบายมาโคดเราทำงานยังงาย อธิบายได้อะเป่า แค่ดูลูบยังดูผิดแย้ว คงโง่มากๆ ที่ไม่เห็นว่าลูบมันซ้อนกันอยู่ เหอ เหอ กากแย้วยังอวดเก่งเชื่อเลย ชอบแถ ชอบแก้ข้อความตัวเอง เอาดีเข้าตัวสร้างภาพ เด๋วคงมาลบอันที่ว่าเราทิ้ง แล้วใส่ข้อความดีๆ แทนอะสินะ เพาะนายเคยมาทำในกระทู้ก่อนแย้ว ทำอีกครั้งจาเป็นไรไปชิมิ ชิม em234
    sak20102005
    sak20102005
    ระงับสมาชิก
    ระงับสมาชิก


    ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 96
    ความนิยม : 4
    เข้าร่วมเมื่อ : 07/04/2011

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by sak20102005 22/04/11, 06:26 pm

    กลัวเราเอาไปถามที่บอด autoit อ่าดิ เหอ เหอ กากแบบนี้คงไม่คิดว่าคำสั่ง ConsoleWrite เป็นคำสั่งตรวจ error นะอายเขา กากของจิงเลย แย้วเอาตัวอย่างใน help ตงไหนมาใช้ไม่ทราบลูบ 100 เหรอบ้าเป่านาย คำสั่งมานก็ต้องใช้ลูปดึงเอาชื่อออกมาหรือนายไม่ทำตามตัวอย่างนั้น
    คำสั่งมานก็ต้องใช้ลูปดึงเอาชื่อออกมาหรือนายไม่ทำตามตัวอย่างนั้น แล้วจามี help ไว้ทำมาย
    คำสั่งมานก็ต้องใช้ลูปดึงเอาชื่อออกมาหรือนายไม่ทำตามตัวอย่างนั้น แล้วจามี help ไว้ทำมาย
    คำสั่งมานก็ต้องใช้ลูปดึงเอาชื่อออกมาหรือนายไม่ทำตามตัวอย่างนั้น แล้วจามี help ไว้ทำมาย
    คำสั่งมานก็ต้องใช้ลูปดึงเอาชื่อออกมาหรือนายไม่ทำตามตัวอย่างนั้น แล้วจามี help ไว้ทำมาย
    เฮ้ยตอบมาดิ หาเรื่องแถไปอีกดิ อ้อคนเก่งแปดพาสานี่คงคิดวิธีพิศดารก่าในตัวอย่างได้นะเอ้อ หน้าอายวะแถไปเรือย ไม่อายตัวเองบ้างหราแค่นี้คนก็เห็นตัวที่แท้จิงนายหมดแย้ว
    ---------------------------------------------------------------
    คนเก่งเขาไม่ใช้ตัวอย่างคำสั่งที่อยู่ใน Help กันหรอก

    ถ้าเป็นผม ผมจะใช้คำสั่ง While หรือไม่ก็คำสั่ง Do แทน


    แก้ไขล่าสุดโดย sak20102005 เมื่อ 22/04/11, 11:40 pm, ทั้งหมด 2 ครั้ง
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by aut 22/04/11, 06:28 pm

    แล้วโคดอันล่างกากตัวไหนใช้ for เอ้าเชิญแถอีกรอบ


    โค้ดคำสั่งของคุณ sak20102005

    CODE:
    #AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #NoTrayIcon
    #include <GuiEdit.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <File.au3>

    Global $hForm, $hEdit, $Button1, $Button2, $title = 'RegVirScan'
    Global $nMsg, $i, $REV, $RR, $Button3, $PID, $newtitle = 'RegVirScanning...'
    Global $tiptxt = 'See message RegVirScan.log to the desktop'&@CRLF&'ถ้าแสกนครั้งเดียว กรุณาแสกนซ้ำอีกครั้ง'
    Global $iconfile = @ScriptDir&'\scan.ico', $readreg
    Global $hkeynum = 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run'
    Global $hkeyread = 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run'
    $hForm = GUICreate($title, 496, 314, -1, -1)
    GUISetIcon($iconfile, -1, $hForm)
    $hEdit = GUICtrlCreateEdit("", 16, 8, 465, 257)
    GUICtrlSetData(-1, "")
    $Button1 = GUICtrlCreateButton("Scan", 16, 280, 75, 25, $WS_GROUP)
    GUICtrlSetCursor(-1, 0)
    $Button2 = GUICtrlCreateButton("Open log", 405, 280, 75, 25, $WS_GROUP)
    GUICtrlSetCursor(-1, 0)
    GUICtrlCreateLabel("Design by:sak20102005", 186, 282, 118, 17)
    GUICtrlSetState(-1, $GUI_DISABLE)

    GUISetState(@SW_SHOW)

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    For $x = 255 To 0 Step -3
    WinSetTrans($title, "", $x)
    Sleep(1)
    Next
    Exit
    Case $Button1
    virautorun()
    $PID = ProcessExists("notepad.exe")
    If $PID Then ProcessClose($PID)
    WinSetTitle($title,"", $newtitle)
    If _GUICtrlEdit_GetText($hEdit) <> '' Then _GUICtrlEdit_SetText($hEdit, '')
    For $i = 1 to 100
    $REV = RegEnumVal($hkeynum, $i)
    $RR = RegRead($hkeyread, $REV)
    If @error <> 0 Then ExitLoop
    _GUICtrlEdit_AppendText($hEdit, @CRLF & $RR)
    Sleep(500)
    Next
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by aut 22/04/11, 06:32 pm

    sak20102005 พิมพ์ว่า:
    ถ้าผมเป็นท่านนะ ผมจะไม่ใช้หรอก คำสั่ง For น่ะ่ น่าจะรู้ตัวได้ล่วงหน้านะว่าต้องโดนสวนกลับ

    คนเก่งเขาไม่ใช้ตัวอย่างคำสั่งที่อยู่ใน Help กันหรอก

    ถ้าเป็นผม ผมจะใช้คำสั่ง While หรือไม่ก็คำสั่ง Do แทน


    เหอ เหอ ที่ไหนสอนมาวะเก่งต้องไม่ใช้คำสั่งใน help บอกมาหน่อยที่ไหนสอน เอาแบบหลักฐานยืนยันเลย จาทำโปรแกรมต้องไม่ใช้คำสั่งอันนั้นอันนี้เด๋วไม่เป็นคนเก่ง ก็ไม่ต้องทำไรเลยอ่าดิ กาก แล้วยังเป็นพวกที่หลงผิดมากๆ นะนาย
    sak20102005
    sak20102005
    ระงับสมาชิก
    ระงับสมาชิก


    ประกาศผลการแข่ง Empty
    จำนวนข้อความ : 96
    ความนิยม : 4
    เข้าร่วมเมื่อ : 07/04/2011

    ประกาศผลการแข่ง Empty Re: ประกาศผลการแข่ง

    ตั้งหัวข้อ by sak20102005 22/04/11, 07:00 pm

    แล้วโคดอันล่างกากตัวไหนใช้ for เอ้าเชิญแถอีกรอบ

    ผมไม่เก่งเหมือนท่านงัย ผมจึงมีสิทธิ์ใชัคำสั่ง for และตัวอย่างโค๊ดที่มีอยู่ใน help

    ท่าเก่งกว่าผม รู้มากกว่าผม ท่านไม่น่าใช้คำสั่ง for ใน help ให้โดนสวนกลับ

    เลี่ยงไปใช้คำสั่งอื่นแทนก็ได้นี่ หรือว่าออกแบบดัดแปลงคำสั่งไม่เป็น


      เวลาขณะนี้ 29/03/24, 07:38 am