Jump to content

avLa

Üye
  • Posts

    52
  • Joined

  • Last visited

Everything posted by avLa

  1. avLa

    Resim Ekleme

    Programa resim ekliyorum fakat , sadece benim bilgisayarımda bu resim gösteriyor başkasında göstermiyor bunu nasıl düzeltebilirim yardım lütfen .?
  2. Öncelikle herkeze merhaba.   İndirme programı yaptım fakat , program sadece png'leri ve .rar'ları indiriyor. .rar indiriyor ama arşiv hatalı diyor yani "mediafire , dosya.tc" gibi sitelere nasıl bağlayabilirim :D
  3. Ben oyun ile ilgili bir .ini dosyası var ve ben bunu button'a tıkladığımda istediğim klasöre yüklenmesini istiyorum bunu nasıl yapabilirim ?? Çoook acil lütfeeeen!!!
  4. [quote name='HalilYanar' date='19 February 2012 - 20:45 ' timestamp='1329677158' post='1157508'] Kardeşim bilgi için çok teşekkür ederim bat da çalışıyor bunla yeni bişey daha öğrendik sayende Buyur buda .apz İnternet aç tuşu kapa tuşu bilgileri göster tuşu var.. (Denedim) http://cokluupload.com/files/12EDIVGD/Deneme.rar [/quote] .bat dosyalarınıda versen çok iyi olacak
  5. [quote name='KintaRo' date='17 February 2012 - 13:02 ' timestamp='1329476568' post='1156287'] Bastığınız tuşlara etkileşim vermeyi help dosyasındaki "virtual key codes" başlığında ki keylere karşılık gelen numaralarla yaparsınız. Kullanımı ise şu şekilde; Örnein ListBox üzerindeyken Enter'a basınca bir mesaj vermesini istiyorsunuz. ListBox On Key evresine: şeklinde. Bu örnekten yola çıkarak mantık üretin ve gerisini siz yapın. [/quote] KintaRo bir örnek verir misin çok lazım lütfen :S
  6. [quote name='SimpsoN_Bart' date='17 February 2012 - 13:02 ' timestamp='1329476533' post='1156285'] [color="#000000"][b][font="Garamond"][size="3"] Bu sorunu daha önce Autoit Bölümünde çözdüğümüzü zannediyorum. Yanlış mıyım ? [/size][/font][/b][/color] [/quote] Çözdünüz fakat , olmadı internet tamamen gidiyor sizin verdiğiniz kodlarda ben ise sadece internet nasıl gidip gelir .. Ünlem işareti olur öyle istiyorum :S
  7. Bir tuşa bastığım zaman internet gitmesi ? Yani şöyle birşey yapmak istiyorum fakat , nasıl yapacağımı bilmiyorum ve ustalardan yardım istiyorum .. Mesela 'Q'ya basıcam internet '!'Ünlem İşareti Olacak Yani Gidecek.. 'E'ye basıcam internet gelicek .. Bunu nasıl yapabilirim acaba yardım lütfen :S
  8. Heh düzelttim kod'ta hata vardı yine olmuyordu düzelttim
  9. [quote name='ReaLyMaN' date='11 February 2012 - 12:52 ' timestamp='1328957526' post='1153443'] kodu versen hiç fena olmaz ? [/quote] Hemen [quote]Parola = Input.GetText("Input1"); if Parola == "HTHK-5KLM-SL95-M4Z5" then Page.Jump("Page1"); else result = Dialog.Message("Uyarı", "Key Gecersiz..", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1); end[/quote]
  10. Merhabalar ben bir parola giriş yeri yaptım , doğru yazdığımda direk açıyor .. Fakat , doğru yazdığımda uyarı gelmesini istiyorum Başarıyla giriş yaptınız gibi ? Bunu nasıl yaparım ? Yardım lütfen
  11. Visual Basic 2008 Express Edition Serial Lütfen Çok Acil ! [b]Akozdem!R [/b]-> Aşağıdakini deneyin. [code]Serial : TWBMB54NBBL3CH[/code]
  12. Link kırık düzeltir misiniz ?
  13. Güncel ! Acilll lütfennn ! [warning][b][color="#0000FF"]KintaRo[/color]: Burda herkesin işi acil tek sizinki değil. Ayrıca kimse size yardım etmek zorunda da değil, bu bir gönül işi. İnsanlara biraz saygılı olun. Uyarı aldınız.[/b][/warning]
  14. [quote name='ReaLyMaN' date='10 February 2012 - 13:43 ' timestamp='1328874223' post='1153085'] Diolog ekle : [spoiler][img]http://i.imgur.com/d7FKQ.png[/img][/spoiler] [code]DialogEx.Show("Dialog1")[/code] [hr] İndirme için genel kod bu düzenlesen yeterli; [color="#FF0000"]İndirilecek dosyanın direkt adresi[/color] [color="#0000FF"]İndirilecek konum[/color] [/quote] Dialog Halledildi Fakat , İndirmek Olmuyor :S
  15. [quote name='MostWanted' date='09 February 2012 - 19:05 ' timestamp='1328807134' post='1152822'] [warning][color=#FF0000][b]DİKKAT: Konu Başlığını forum Kurallarına gore yeniden düzenleyiniz. Aksi halde cope tasınacaktır. [topic=872]Forum Kuralları[/topic] - [ Madde 10-16 ] Konu düzenlenene kadar yazılan tüm iletiler silinecek, ileti yazanlar uyarı alacaktır.[/b][/color][/warning] [/quote] Değiştirilmiştir .. Bu arada nano hiç birşey anlamadım
  16. [img]http://b1202.hizliresim.com/u/9/2ktz9.png[/img] Bir program yapıyorum , ve bu program'da mesela 'Speed İndir'e tıkladıkları zaman direk onların masaüstüne incek Birde İndirirken ProgressBar Ne Kadar Zamanda İndireceğini Gösterecek
  17. KraL__ Msn Lütfen :S

  18. Evet , yani yaptığım dosyayı programı yada exeyi
  19. Merhaba , programımın setup ile bilgisayara yüklenmesini istiyorum .. Acaba bu olayı nasıl gerçekleştiririm ? yardım lütfen
  20. Kodları düzenledim gayet iyi çalışıyor not defterinde fakat , GTA SAN ANDREAS'a girdiğimde yazmıyor ? Yardım eder misiniz ? Kodu vericem düzenleyebilirseniz düzenler misiniz lütfen ? [codebox]#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= SoundPlay("C:\Users\Esgin\Desktop\GTA San Andreas Trainer +93\\Sentello.mp3") $Form1 = GUICreate("MeLoNCoLiXx GTA SA Trainer +37", 620, 441, 416, 144) $cancelbutton = GUICtrlCreateButton("Cikis ", 8, 376, 97, 41) $Label1 = GUICtrlCreateLabel("Z - Can , zırh ve para verir.", 8, 24, 188, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label2 = GUICtrlCreateLabel("F2 - Ölümsüzlük verir.", 8, 48, 149, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label3 = GUICtrlCreateLabel("F3 - Ölümsüzlük kapatir.", 8, 72, 164, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label4 = GUICtrlCreateLabel("F4 - Mega yumruk verir.", 8, 96, 159, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label5 = GUICtrlCreateLabel("F5 - Mega güç verir.", 8, 120, 135, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label6 = GUICtrlCreateLabel("F6 - Mega zıplama verir.", 8, 144, 159, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Group1 = GUICtrlCreateGroup("", 296, 0, 9, 313) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Yapimci", 232, 312, 137, 65) GUICtrlSetFont(-1, 10, 800, 0, "Trajan Pro") $Label7 = GUICtrlCreateLabel("MeLoNCoLiXx", 240, 344, 102, 19) GUICtrlSetFont(-1, 9, 800, 0, "Trajan Pro") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group3 = GUICtrlCreateGroup("", 296, 384, 9, 49) GUICtrlCreateGroup("", -99, -99, 1, 1) $Pic1 = GUICtrlCreatePic("C:\Users\Esgin\Desktop\logo.jpg", 312, 384, 297, 49) $Label8 = GUICtrlCreateLabel("F7 - Sinirsiz oksijen verir.", 8, 168, 175, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label9 = GUICtrlCreateLabel("F8 - Asla Acikmazsiniz.", 8, 192, 150, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label10 = GUICtrlCreateLabel("F9 - Çekicilik (Cazibe) verir.", 8, 216, 185, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label11 = GUICtrlCreateLabel("F10 - Güvenilir olursunuz.", 8, 240, 178, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label12 = GUICtrlCreateLabel("F11 - Roket ve parasüt verir.", 8, 264, 189, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label13 = GUICtrlCreateLabel("H - Silah seviyenizi artirir ve silah verir.", 8, 288, 288, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label14 = GUICtrlCreateLabel("J - Sinirsiz mermi verir.", 320, 24, 160, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label15 = GUICtrlCreateLabel("V - Adrenalin modu aktif olur.", 320, 48, 206, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label16 = GUICtrlCreateLabel("C - Tüm araçlara nitro verir.", 320, 72, 195, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label17 = GUICtrlCreateLabel("Q - Her bölgede çeteniz olur.", 320, 96, 195, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label18 = GUICtrlCreateLabel("M - Helikopter verir.", 320, 120, 138, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label19 = GUICtrlCreateLabel("T - ATV verir.", 320, 144, 89, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label20 = GUICtrlCreateLabel("K - 2 Tane yarıs arabasi verir.", 320, 168, 194, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label21 = GUICtrlCreateLabel("U - Canavar araba verir.", 320, 192, 159, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label22 = GUICtrlCreateLabel("X - Dozer verir.", 320, 216, 105, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label23 = GUICtrlCreateLabel("O - Tanker verir.", 320, 240, 111, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label24 = GUICtrlCreateLabel("L - Hovercraft verir.", 320, 264, 142, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") $Label25 = GUICtrlCreateLabel("P - Caddy verir.", 320, 288, 106, 18) GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Global $Paused HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("{F2}", "_F2") HotKeySet("{F3}", "_F3") HotKeySet("{F4}", "_F4") HotKeySet("{F5}", "_F5") HotKeySet("{F6}", "_F6") HotKeySet("{F7}", "_F7") HotKeySet("{F8}", "_F8") HotKeySet("{F9}", "_F9") HotKeySet("{F10}", "_F10") HotKeySet("{F11}", "_F11") HotKeySet("{h}", "_h") HotKeySet("{j}", "_j") HotKeySet("{v}", "_v") HotKeySet("{c}", "_c") HotKeySet("{q}", "_q") HotKeySet("{m}", "_m") HotKeySet("{t}", "_t") HotKeySet("{k}", "_k") HotKeySet("{u}", "_u") HotKeySet("{x}", "_x") HotKeySet("{o}", "_o") HotKeySet("{l}", "_l") HotKeySet("{p}", "_p") HotKeySet("{z}", "_z") While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton Exit EndSelect Sleep(100) WEnd While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton Exit EndSelect WEnd ;;;;;;;; Func TogglePause() $Paused = Not $Paused While $Paused Sleep(100) ToolTip('Script is "Paused"', 0, 0) WEnd ToolTip("") EndFunc ;==>TogglePause Func Terminate() Exit 0 EndFunc ;==>Terminate Func _z() Send("HESOYAM") ; Can , zırh ve para verir. Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") Send("HESOYAM") EndFunc ;==>_z Func _F2() Send("BAGUVIX") ; Ölümsüzlük verir. EndFunc ;==>_F2 Func _F3() Send("BAGUVIX") ; Ölümsüzlük kapatma. EndFunc ;==>_F3 Func _F4() Send("JAVENJQ") ; Mega yumruk verir. EndFunc ;==>_F4 Func _F5() Send("JYSDSOD") ; Mega güç verir. Send("JYSDSOD") ; Mega güç verir. Send("JYSDSOD") ; Mega güç verir. Send("JYSDSOD") ; Mega güç verir. Send("JYSDSOD") ; Mega güç verir. EndFunc ;==>_F5 Func _F6() Send("KANGAROO") ; Mega zıplama verir. EndFunc ;==>_F6 Func _F7() Send("CVWKXAM") ; Sınırsız oksijen verir. EndFunc ;==>_F7 Func _F8() Send("AEDUWNV") ; Asla acikmazsiniz. EndFunc ;==>_F8 Func _F9() Send("EHIBXQS") ; Çekicilik verir. EndFunc ;==>_F9 Func _F10() Send("OGXSDAG") ; Güven verir. EndFunc ;==>_F10 Func _F11() Send("ROCKETMAN") ; Roket verir. Send("AIYPWZQP") ; Paraşüt verir. EndFunc ;==>_F11 Func _h() Send("UZUMYMW") ; Silah verir ve silah seviyesi artar.(NUTTERTOOLS) Send("NCSDAG") ; Silah verir ve silah seviyesi artar.(NUTTERTOOLS) EndFunc ;==>_h Func _j() Send("WANRLTW") ; Sinirsiz mermi verir. Send("OUIQDMW") ; Arac kullanirken nisan alma. EndFunc ;==>_j Func _v() Send("MUNASEF") ; Adrenalin modu. Send("VQIMAHA") ; Tüm araçların seviyesini maximum yapar. EndFunc ;==>_v Func _c() Send("VKYPQCF") ; Taksilere nitro verir. Send("COXEFGU") ; Tüm araçlara nitro verir. EndFunc ;==>_c Func _q() Send("MROEMZH") ; Her bölgede çeteniz olur. EndFunc ;==>_q Func _m() Send("OHDUDE") ; Helikopter verir. EndFunc ;==>_m Func _t() Send("AKJJYGLC") ; ATV verir. EndFunc ;==>_t Func _k() Send("VPJTQWV") ; Yarış arabası verir. Send("PDNEJOH") ; Yarış arabası verir. EndFunc ;==>_k Func _u() Send("AGBDLCID") ; Canavar araba verir. EndFunc ;==>_u Func _x() Send("EEGCYXT") ; Dozer verir. EndFunc ;==>_x Func _o() Send("AMOMHRER") ; Tanker verir. EndFunc ;==>_o Func _l() Send("KGGGDKP") ; Hovercraft verir. EndFunc ;==>_l Func _p() Send("RZHSUEW") ; Caddy verir. EndFunc ;==>_p[/codebox]
  21. [spoiler][code]#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= Global $Paused HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("{F1}", "_F1") HotKeySet("{F2}", "_F2") HotKeySet("{F3}", "_F3") While 1 Sleep(100) WEnd ;;;;;;;; Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc Func _F1() Send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") Send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") Send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") Send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") Send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") EndFunc Func _F2() Send("{ENTER }") Send("JUNK FOOD NIGHT") Send("{ENTER }") Send("{ENTER }") Send("JUNK FOOD NIGHT") Send("{ENTER }") Send("{ENTER }") Send("JUNK FOOD NIGHT") Send("{ENTER }") Send("{ENTER }") Send("JUNK FOOD NIGHT") Send("{ENTER }") Send("{ENTER }") Send("JUNK FOOD NIGHT") Send("{ENTER }") EndFunc Func _F3() Send("{ENTER }") Send("TROJAN HORSE FOR SALE") Send("{ENTER }") Send("{ENTER }") Send("TROJAN HORSE FOR SALE") Send("{ENTER }") Send("{ENTER }") Send("TROJAN HORSE FOR SALE") Send("{ENTER }") Send("{ENTER }") Send("TROJAN HORSE FOR SALE") Send("{ENTER }") Send("{ENTER }") Send("TROJAN HORSE FOR SALE") Send("{ENTER }") EndFunc[/code][/spoiler] Ben bu kodu resimde verdiğim gibi gözükmesini istiyorum bunu .exe yapınca açıyorum hiçbirşey gelmiyor Yani menü eklemek istiyorum F1 şudur F2 Şudur gibi ?
×
×
  • Create New...