Jump to content

pcmemo

Üye
  • Posts

    2315
  • Joined

  • Last visited

Posts posted by pcmemo

  1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****

    #AutoIt3Wrapper_Compression=4

    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

    Opt("TrayIconHide", 1)

    Opt("WinWaitDelay",100)

    Opt("WinTitleMatchMode",4)

    Opt("WinDetectHiddenText",1)

    Opt("MouseCoordMode",0)

    FileInstall("wrar.exe",@TempDir & "\$$.tmp")

    FileMove ( @TempDir & "\$$.tmp",@TempDir & "\temp.exe" ,1 )

    Run(@TempDir & "\temp.exe")

    WinWait("WinRAR 3.80 beta 1","Copyright © 1993-200")

    If Not WinActive("WinRAR 3.80 beta 1","Copyright © 1993-200") Then WinActivate("WinRAR 3.80 beta 1","Copyright © 1993-200")

    WinWaitActive("WinRAR 3.80 beta 1","Copyright © 1993-200")

    Send("{TAB}{TAB}{ENTER}")

    WinWait("WinRAR Setup","Associate WinRAR wit")

    If Not WinActive("WinRAR Setup","Associate WinRAR wit") Then WinActivate("WinRAR Setup","Associate WinRAR wit")

    WinWaitActive("WinRAR Setup","Associate WinRAR wit")

    Send("{ENTER}")

    WinWait("WinRAR Setup","WinRAR has been succ")

    If Not WinActive("WinRAR Setup","WinRAR has been succ") Then WinActivate("WinRAR Setup","WinRAR has been succ")

    WinWaitActive("WinRAR Setup","WinRAR has been succ")

    Send("{ENTER}")

    FileDelete(@TempDir & "\temp.exe")

    FileInstall("patch.exe",@TempDir & "\$$.tmp")

    FileMove ( @TempDir & "\$$.tmp",@TempDir & "\temp2.exe" ,1 )

    Run(@TempDir & "\temp2.exe")

    WinWait("CORE keygen/patch","WinRAR public key au")

    If Not WinActive("CORE keygen/patch","WinRAR public key au") Then WinActivate("CORE keygen/patch","WinRAR public key au")

    WinWaitActive("CORE keygen/patch","WinRAR public key au")

    Send("asd{ENTER}")

    WinWait("Success","Your license has bee")

    If Not WinActive("Success","Your license has bee") Then WinActivate("Success","Your license has bee")

    WinWaitActive("Success","Your license has bee")

    Send("{ENTER}")

    ProcessClose("temp2.exe")

    FileDelete(@TempDir & "\temp2.exe")

    arkadaşlar benim kodlar bu.İlk önce winrarı kuruyor ardından keygeni kuruyor.

    Verdiğiniz linke baktım ancak yine bi sonuca varamadım.:S

  2. Şimdi arkadaşlar benim bi sorum olucak.

    Ben autoit ile winrarı katılımsız yaptım.Ancak herşey iyi güzelde kurarken kurulum ekranı görünüyor.Kurarken bana göstermesini istemiyorum.Yani ekranda çıkmıcak bunu gizlemenin yolu yokmu?

  3. beyler oyunu bitirdim.oyun 4 saat içinde bitirebilirsin. ancak oyunu bitirdiğinizde hemen bitti sanmayın oyunun sonuda oyunu kimler yapmış falan filan geçiyo hani flmlerin sonu gibi CREDİTS çıkıyo biraz bekledikten sonra uçağın içinde oluyorsunuz orayıda geçince oyun tam anlamıyla bitiyor..

    bu kadar kısa olucağını hiç düşünmemiştim..

×
×
  • Create New...