Jump to content

whitedeath

Üye
  • Posts

    160
  • Joined

  • Last visited

Posts posted by whitedeath

  1. arkadaşlar autoit ile yaptığım katılımsız programda kurulum bittikten sonra pc yi yeniden başlatmak için uyarı ekranı kodu '' bilgisayarı yeniden başlatmanız gerekiyor oyanlıyormusunuz '' gibisinden veya uyarı vermeden otomatik başlatan kod varmı

  2. #RequireAdmin
    #NoAutoIt3Execute
    Opt("TrayMenuMode", 1)
    TraySetToolTip("Programınız kuruluyor...")
    Global $Program = _TempFile()
    Global $Parametre = "/qn"
    FileInstall("open.msi",$Program)
    ;~ ;RunWait($Program & " " & $Parametre)
    ShellExecuteWait($Program,$Parametre)
    TraySetToolTip("Kum tamamlandı.")
    TrayTip("TNCTR.com", "Kurulum tamamlandı!", 10, 4)
    Sleep(20000)
     Func _TempFile($s_DirectoryName = @TempDir, $s_FileExtension = "open.msi", $s_FilePrefix = "~", $i_RandomLength = 7)
        Local $s_TempName
        If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\"
        Do
            $s_TempName = ""
            While StringLen($s_TempName) < $i_RandomLength
                $s_TempName = $s_TempName & Chr(Random(97, 122, 1))
            WEnd
            $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension
        Until Not FileExists($s_TempName)
        Return ($s_TempName)
    EndFunc;==>_TempFile

     

    reyiz düzenlemeyi bilsem zaten konu açmazdım.düzenlenmiş halini bilen varsa yazsın isteğim bu sadece

  3. reyiz verdiğin kodları nasıl kullanıcam kısaca açıklayabilirmisin.bide aşağıdaki kodu buldum onu denedim ama uyarı falan çıkıyo ama program kurulmuyo

     

    Opt("TrayMenuMode", 1)
    TrayTip(".::MeHMeT::.UYARI!", "Yahoo Messenger yüklenirken lütfen bekleyiniz", 30, 4)
    Sleep(2000)
    Global $Program = _TempFile()
    Global $Parametre = "/qn"
    FileInstall("Yahoomessenger.msi",$Program)
    ;~ ;RunWait($Program & " " & $Parametre)
    ShellExecuteWait($Program,$Parametre)
    FileDelete($Program)
    TrayTip("Başarıyla", "Yüklendi", 10,4)
    Sleep(2000)
    Func _TempFile($s_DirectoryName = @TempDir, $s_FileExtension = ".msi", $s_FilePrefix = "~", $i_RandomLength = 7)
        Local $s_TempName
        If StringRight($s_DirectoryName, 1) <> "\" Then $s_DirectoryName = $s_DirectoryName & "\"
        Do
            $s_TempName = ""
            While StringLen($s_TempName) < $i_RandomLength
                $s_TempName = $s_TempName & Chr(Random(97, 122, 1))
            WEnd
            $s_TempName = $s_DirectoryName & $s_FilePrefix & $s_TempName & $s_FileExtension
        Until Not FileExists($s_TempName)
        Return ($s_TempName)
    EndFunc;==>_TempFile
×
×
  • Create New...