Jump to content

bybordo

Üye
  • Posts

    114
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by bybordo

  1. Opt("TrayMenuMode", 1) $tooltipisim = "Bordo Matematik Programları 1.0" $parametre = '/S' $iMsgBoxAnswer = _Bb_MsgBox("Bordo Matematik Programları", "Lütfen Kurulum Seçeneği Belirleyiniz.") Select Case $iMsgBoxAnswer = 6 Case $iMsgBoxAnswer = 7 Case $iMsgBoxAnswer = 2 EndSelect Func _Bb_MsgBox($sTitle, $sText, $iTime = 0, $Hwnd = "") Local $ReturCode = 2 Local $MSG_Form = GUICreate($sTitle, 350, 200, -1, -1) Local $MSG_ICON = GUICtrlCreateIcon("shell32.dll", 61, 10, 10, 32, 32) Local $MSG_LABEL = GUICtrlCreateLabel($sText, 43, 7, 300, 30, 0x001) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) Local $Checkbox1 = GUICtrlCreateCheckbox("GeoGebra 4.4.5.0 TR", 12, 30, 130, 40) Local $Checkbox2 = GUICtrlCreateCheckbox("Cabri 3D 2.1.2", 12, 65, 130, 40) Local $Checkbox3 = GUICtrlCreateCheckbox("Drive 6", 12, 100, 130, 40) Local $MSG_BTN2 = GUICtrlCreateButton("Full Sürümlerini Yükle", 10, 160, 160, 23) Local $MSG_BTN1 = GUICtrlCreateButton("Deneme Sürümlerini Yükle", 180, 160, 160, 23) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $MSG_BTN1 $ReturCode = 6 If GUICtrlRead($Checkbox1) = 1 Then ShellExecuteWait(@TempDir & "\ggb.exe", $parametre) FileDelete(@TempDir & "\ggb.exe") EndIf If GUICtrlRead($Checkbox3) = 1 Then FileInstall("drive.exe", @TempDir & "\drive.exe", 1) ShellExecuteWait(@TempDir & "\drive.exe", $parametre) FileDelete(@TempDir & "\drive.exe") EndIf If GUICtrlRead($Checkbox2) = 1 Then FileInstall("cabri.exe", @TempDir & "\cabri.exe", 1) ShellExecuteWait(@TempDir & "\cabri.exe", $parametre) FileDelete(@TempDir & "\cabri.exe") EndIf ExitLoop Case $MSG_BTN2 $ReturCode = 7 If GUICtrlRead($Checkbox1) = 1 Then FileInstall("ggb.exe", @TempDir & "\ggb.exe", 1) ShellExecuteWait(@TempDir & "\ggb.exe", $parametre) FileDelete(@TempDir & "\ggb.exe") EndIf If GUICtrlRead($Checkbox3) = 1 Then ShellExecuteWait(@TempDir & "\drive.exe", $parametre) FileInstall("drive6.exe", @ProgramFilesDir & "\TI Education\Derive 6 Trial Edition\Derive6.exe", 1) FileDelete(@TempDir & "\drive.exe") EndIf If GUICtrlRead($Checkbox2) = 1 Then FileInstall("cabri.exe", @TempDir & "\cabri.exe", 1) ShellExecuteWait(@TempDir & "\cabri.exe", $parametre) RegWrite("HKEY_CURRENT_USER\Software\Cabrilog\Cabri3D-2.1", "userName", "REG_SZ", "bybordo") RegWrite("HKEY_CURRENT_USER\Software\Cabrilog\Cabri3D-2.1", "productKey", "REG_SZ", "asdsdfgdgfd") RegWrite("HKEY_CURRENT_USER\Software\Cabrilog\Cabri3D-2.1", "productKey2", "REG_SZ", "rfertetreter") RegWrite("HKEY_CURRENT_USER\Software\Cabrilog\Cabri3D-2.1", "organization", "REG_SZ", "...") FileDelete(@TempDir & "\cabri.exe") EndIf ExitLoop EndSwitch WEnd GUIDelete($MSG_Form) Return $ReturCode EndFunc ;==>_Bb_MsgBox ; traytip krlm tamamlandı vss... burada hiçbir checkbox seçilmediği zaman kurulum tuşuna basınca hata versin istiyorum (msgbox ile). yapamadım yardımcı olur musunuz ? bir de sağda boş kalan kısma nasıl resim ekleyebilirim ?
  2. Kodun başına  bunu ekle  #RequireAdmin Ve process i gizlemeyi dene.    http://www.tnctr.com/topic/177195-goerev-yoeneticisindeki-processi-gizlemek/
  3. %100 engelleyemezsin her türlü açılır. yine de bunu deneyebilirsin. #AutoIt3Wrapper_Run_Obfuscator=y #Obfuscator_Parameters=/sf 1 /sv 1
  4. kapanmayanları birden fazla yaz.  local $MyList[6] = ["Test1","Test2","Test2","Test3","Test3","Test4"]
  5. ProcessWaitClose("a.exe") ; a.exe nin kapanmasını bekler ProcessClose("b.exe") ; a.exe kapanınca b.exe de kapanır.
  6. BlueLife üstad sanırım yanlış anlattım derdimi. pencereyi beklerken başka pencere gelirse o pencereden devam etmesini istiyorum. verdiğin kodda winwaitactive denedim ama işe yaramadı. Global $Window_1 = "pencere", "title" bi de bu şekilde yazınca hata veriyor. ayrıca yazdığınız kod pencere1 i bekliyor mu? pencere1 i beklerken pencere2  gelirse pencere2 den devam etmesi gerekiyor. ardından pencere3e geçip scripti bitiricek. tabi bu pencerelerin hepsinde controlcommand ayarlıcam.
  7. elimizde 3 tane pencere olsun (pencere1, pencere2, pencere3) pencere1 için winwaitactive yazdık diyelim. scriptimiz bu pencereyi beklerken pencere2 önümüze geldi. o zaman scriptimiz pencere2 ile devam etsin. böyle bi kod yazabilecek var mı?
  8. local $MyList[4] = ["pencere1","pencere2","pencere3","pencere4"] ; Kapanmasını istediğin Pencere isimlerini buraya yaz for $i = 1 to UBound($MyList) -1 if WinWaitActive($MyList[$i]) Then ProcessClose("abxde.exe") ProcessClose("blabla.exe") ;kapanmasını istediklerini bu şekilde yaz ExitLoop EndIf next Bu şekilde yaparsan exe hep açık durur. processclose olunca kapanır.
  9. evet iyi sıkmışsın :D local $MyList[4] = ["pencere1","pencere2","pencere3","pencere4"] ; Kapanmasını istediğin Pencere isimlerini buraya yaz for $i = 1 to UBound($MyList) -1 if WinExists($MyList[$i]) Then ProcessClose("abxde.exe") ProcessClose("blabla.exe") ;kapanmasını istediklerini bu şekilde yaz ExitLoop EndIf next
  10. If WinExist("Google Chrome") Than WinClose("Google Chrome") EndIF
  11. If WinExist("Google Chrome") Then ; google chrome açılınca ProcessClose("a.exe") ; kapanmasını istediğin exe ProcessClose("b.exe") ; kapanmasını istediğin exe WinClose("Pencere Adı") ; kapanmasını istediğin pencere EndIF Bu arada liste yapmana gerek yok. Kapanmasını istediklerini yukarıya yaz. zaten öyle birşey varsa kapanır. yoksa o satırı esgeçer.
  12. DAEMON Tools Ultra Yeni sürüm çıktı alanında en iyi oyun yükleyici Ve sanallaştırma programıdır. Bununla DVD CD USB Veri yazıp yada sanallaştırıp sistem oyun vb şeyler kurabilirsiniz ayrıca Gamespace özelliği ile resim oyun video vb koleksiyonlarınız hakkında her bilgiyi öğrenebilirsiniz. [spoiler][/spoiler] Versiyon: 1.1.0.0103 Dil: TR Lisans: Full Dosya Boyutu: 25 Mb (.rar) Rar Pass: bybordo Program Özelikleri: DAEMON Tools Ultra Yeni sürüm çıktı alanında en iyi oyun yükleyici Ve sanallaştırma programıdır. Bununla DVD CD USB Veri yazıp yada sanallaştırıp sistem oyun vb şeyler kurabilirsiniz ayrıca Gamespace özelliği ile resim oyun video vb koleksiyonlarınız hakkında her bilgiyi öğrenebilirsiniz. Desteklediği uzantılar: *.mdx, *.mds/*.mdf, *.iso, *.b5t, *.b6t, *.bwt, *.ccd, *.cdi, *.bin/*.cue, *.ape/*.cue, *.flac/*.cue, *.nrg, *.isz ve dahası $44.99 değerinde full sürümdür. ------------------------------------------------------- ..:: Kurulum Notları ::.. # Program, Crack ve SPDT otomatik kurulur. # "Kurulum Tamamlandı" yazısını görene kadar bekleyiniz. ..:: İndir / Download ::.. http://turbobit.net/sbnevkyptiye.html
  13. Sorun winamp değil aslında amacım flexnet i öğrenmek. İsterseniz team vereyim bakın kendiniz.
  14. Bir de onunla deneyeyim winamp ı.
  15. Bütün msi lerde bu sorun oluyor mu ? Bilginiz var mı?
  16. Teşekkürler. Yalnız merak ettiğim konu şu. Flexnet Adminstuido 8.5 ile yaptığım hiçbir msi dosyasını parametre ile katılımsız yapamayacak mıyım? Yoksa başka bir yolu mu var? Forumda anlatım var ama linki silinmiş. Anlatan kişiden istedim hala cevap gelmedi ve google da aratınca bütün sitelerde aynı link kullanılmış.
  17. #RequireAdmin #NoAutoIt3Execute Opt("TrayMenuMode",1) FileInstall('Setup.msi',@TempDir & '\Setup.msi',1) RunWait('msiexec /i "' & @TempDir & '\Setup.msi" /quiet') FileDelete(@TempDir & "\Setup.msi") Kısacası bu şekilde
  18. Yardımınız için teşekkürler; fakat ikisini de denedim olmadı.
  19. Deniyorum. Birazdan dönüt vereceğim.
  20. winampı flexnetle msi yaptım ama /qn parametresi ile katılımsız olmadı. parametresi şöyle bişey çıktı: msiexec.exe /i "Setup.msi" /qb Bu şekilde biraz sallama kod yazdım ama olmadı :D yardımcı olur musunuz ? ShellExecuteWait(@WindowsDir & "msiexec.exe /i",@TempDir & "\Setup.msi", "/qb")
  21. windows 7 en kolayı. usb ye boot mu yapamadın yoksa pc ye flashtan mı başlatamadın? eğer boot yapamadıysan windows 7 usb  tools i indir. windowsun orjinal sitesinde var. eğer ikincisi ise boot menüsünden f5/f6 tuşlarıyla usb yi en üste getir.
  22. bende de bi kere olmuştu. pc reset atınca düzeldi
  23. apk uzantılı dosyaları atamadık mı ne anladık bundan
×
×
  • Create New...