MostWanted
-
Posts
3255 -
Joined
-
Last visited
Content Type
Profiles
Forums
Calendar
Posts posted by MostWanted
-
-
@AppDataDir 'in geri döndürdüğü yol "C:\Users\mehmet\AppData" değil "C:\Users\mehmet\AppData\Roaming". O yüzden sen sonuna \Roaming yazarsan kod onu "C:\Users\mehmet\AppData\Roaming\Roaming" diye yorumlayacağı için sorun oluşur.
-
Üzgünüm ama cevap verebilmek için elinizde kodunuz olması gerekli.Çünkü sıfırdan program yazmıyoruz ki bu konuda bi sürü konu zaten konuşuldu.Eğer amacınız program yazdırmak ise bunu PARAYLA yaptırmalısınız.
-
[spoiler]
Opt("TrayIconHide", 1) #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Constants.au3> #include <Sound.au3> #Region ### START Koda GUI section ### Form= $hGUI = GUICreate( "xx Program Türkçe!", 468, 358, -1, -1) $hPic = GUICtrlCreatePic( "", 0, 0, 468, 222) GUICtrlSetImage( -1, @ScriptDir &"\1.jpg") $hGroup = GUICtrlCreateGroup( "Şifreyi Giriniz...", 6, 227, 455, 125) $muzik_butonu = GUICtrlCreateButton( "Müzik", 396, 310, 60, 35) GUICtrlSetImage( -1, @ScriptDir &"\music_off-32.ico") $hButton2 = GUICtrlCreateButton( "Çalıştır", 147, 319, 164, 20) $hInput = GUICtrlCreateInput( "Parola", 110, 252, 238, 21) GUICtrlSetCursor( -1, 2) $hCheckbox = GUICtrlCreateCheckbox( "Parolayı Hatırla", 176, 285, 120, 19) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### FileInstall(@ScriptDir & "\prog.exe",@TempDir & "\$$.tmp") $muzik = _SoundOpen("tempe_atacağın_müzik_dosyası.wav") ; fileinstall ile müziği alıp atmalısın. _SoundPlay($muzik) Global $isPlaying = True GUIRegisterMsg($WM_COMMAND, "ED_WM_COMMAND") While 1 $hMsg = GUIGetMsg() Switch $hMsg Case $GUI_EVENT_CLOSE Exit case $muzik_butonu if $isPlaying Then $isPlaying = False _SoundPause($muzik) GUICtrlSetImage($muzik_butonu, @ScriptDir &"\artık_hangi_ikonu_kullanacaksan.ico") Else $isPlaying = True _SoundResume($muzik) GUICtrlSetImage($muzik_butonu, @ScriptDir &"\music_off-32.ico") ;Ayrıca GuiCtrlSetData kullanarak butonun yazısını Müiziği Durdur Devam ettir gibi şeylerde yapabilirsin. EndIf Case $hButton2 if GUICtrlRead($hInput, 1) = "GameOver" Then FileMove ( @TempDir & "\$$.tmp",@TempDir & "\prog.exe" ,1 ) RunWait(@TempDir & "\prog.exe") EndIf EndSwitch WEnd Func ED_WM_COMMAND($hWnd, $iMsg, $wParam, $lParam) #forceref $hWnd, $iMsg Local $iCode = BitShift($wParam, 16) Switch $lParam Case GUICtrlGetHandle($hInput) Switch $iCode Case $EN_SETFOCUS GUICtrlSetData($hInput, "") EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFunc ;==>ED_WM_COMMAND[/spoiler] -
[spoiler]
Opt("TrayIconHide", 1) #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Constants.au3> #include <Sound.au3> #Region ### START Koda GUI section ### Form= $hGUI = GUICreate( "xx Program Türkçe!", 468, 358, -1, -1) $hPic = GUICtrlCreatePic( "", 0, 0, 468, 222) GUICtrlSetImage( -1, @ScriptDir &"\1.jpg") $hGroup = GUICtrlCreateGroup( "Şifreyi Giriniz...", 6, 227, 455, 125) $muzik_butonu = GUICtrlCreateButton( "Müzik", 396, 310, 60, 35) GUICtrlSetImage( -1, @ScriptDir &"\music_off-32.ico") $hButton2 = GUICtrlCreateButton( "Çalıştır", 147, 319, 164, 20) $hInput = GUICtrlCreateInput( "Parola", 110, 252, 238, 21) GUICtrlSetCursor( -1, 2) $hCheckbox = GUICtrlCreateCheckbox( "Parolayı Hatırla", 176, 285, 120, 19) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### FileInstall(@ScriptDir & "\prog.exe",@TempDir & "\$$.tmp") $muzik = _SoundOpen("tempe_atacağın_müzik_dosyası.wav") ; fileinstall ile müziği alıp atmalısın. Global $isPlaying = True GUIRegisterMsg($WM_COMMAND, "ED_WM_COMMAND") While 1 $hMsg = GUIGetMsg() Switch $hMsg Case $GUI_EVENT_CLOSE Exit case $muzik_butonu if $isPlaying Then $isPlaying = False _SoundPause($muzik) GUICtrlSetImage($muzik_butonu, @ScriptDir &"\artık_hangi_ikonu_kullanacaksan.ico") Else $isPlaying = True _SoundResume($muzik) GUICtrlSetImage($muzik_butonu, @ScriptDir &"\music_off-32.ico") ;Ayrıca GuiCtrlSetData kullanarak butonun yazısını Müiziği Durdur Devam ettir gibi şeylerde yapabilirsin. EndIf Case $hButton2 if GUICtrlRead($hInput, 1) == "GameOver" Then FileMove ( @TempDir & "\$$.tmp",@TempDir & "\prog.exe" ,1 ) RunWait(@TempDir & "\prog.exe") EndIf EndSwitch WEnd Func ED_WM_COMMAND($hWnd, $iMsg, $wParam, $lParam) #forceref $hWnd, $iMsg Local $iCode = BitShift($wParam, 16) Switch $lParam Case GUICtrlGetHandle($hInput) Switch $iCode Case $EN_SETFOCUS GUICtrlSetData($hInput, "") EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFunc ;==>ED_WM_COMMAND[/spoiler]
Gerekli küçük açıklamaları yanına yazdım. -
yok ne yazık ki ühü ühü.
-
Bu konu "Sohbet-Chat" forumundan "Yazılım" forumuna taşınmıştır.
-
Doğrusu "ShellExecute" ams değil autoit forumundayız :)
-
Cehaletimi bağışlayın ama sormak istediğim bir şey var.Bu projeyi incelemedim ama kendim soket programlama kullanarak küçük bi program yapmaya çalışmıştım.Lan üzerinden bu işlem oldukça basit ama online olarak ip kısmını kullanarak yapmaya çalıştığımda bu iş olmadı.Araştırmalarım sonucunda gönderdiğim tcp paketinin router'a ulaştığını ve burdan router ayarları yapılmadan bilgisayara aktaramayacağım (dış porttan windows portuna vs) sonucuna ulaştım (yapanlar nasıl yapılıyor bilmiyorum).Şimdi sorum bu proje bunu yapabiliyor mu?Yapamıyorsa bu işlemin nasıl olacağı hakkında fikri olan var mı?
-
İstenilse de yapılamaz ve bu sitede bunu yapabilecek birisi yok.
-
-
-
Sorun şu: Sen o hile yaptınız MessageBox'undan sonra endif diyip o if bloğunu kapatmışsın (ki zaten neden onun soru olduğunu da anlamadım? ama sanırım yapmak istediğin evet dendiği zaman kapatmaktı.).Neyse sonuç olarak exitloop arrayin ikinci elemanı ($i yi 1 den başlatmışsın.Autoit zero-based çalışır) bulduktan sonra gerekli uyarı verir ve biter.Kodu şöyle düzeltirsen çalışacağını düşünüyorum.
local $MyList[4] = ["Test1","Test2","Test3","Test4"] ; Kapanmasını istediğin Pencere isimlerini buraya yaz HotKeySet("p","dur") dim $deger,$Paused $deger = 0 dur() Func calis() do for $i = 0 to UBound($MyList) -1 if WinWait($MyList[$i]) Then ;winexist kullanılabilir WinClose("LeonMetin2") WinClose("LeonMetin2") WinClose("LeonMetin2") ;kapanmasını istediklerini bu şekilde yaz If MsgBox(0, "LeonMetin2 Mastershield", "Hesabınız hile kullanımından dolayı birkaç saat içerisinde kapatılacaktır." & @CRLF & @CRLF & "Eğer bu bildirimin yanlış bir bildirim olduğunu düşünüyorsanız hemen leonmetin2.net/forum adresinden iletişime geçin.", 5) = 6 Then ExitLoop EndIf EndIf next until $deger = 0 EndFunc func dur() if $deger = 1 Then $deger = 0 do Sleep(100) until $deger = 1 Else $deger = 1 calis() EndIf EndFunc -
Bu konu "Sohbet-Chat" forumundan "Her Zaman Gerekliler" forumuna taşınmıştır.
-
http://rapidshare.com/files/1581572284/muzik_calar_v3.1edittalha.rar
En son düzenlediğim proje burda.Ama aradığınız mı bilemem.
-
1
-
-
Sen nasıl istiyosan öyle yap, internetikilere neden bağlı kalıyorsun?
-
Bu konu "Yazılım" forumundan "Android" forumuna taşınmıştır.
-
[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] -
_ReduceMemory(ProcessExists(@ScriptName))
Böyle kullanabilirsin.
-
[spoiler]
#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.8.1 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Misc.au3> HotKeySet("{F6}", "_basla") HotKeySet("{F9}", "_dur") HotKeySet("{F4}", "enterabas") #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("AutoTick", 372, 146, -1, -1) $Button1 = GUICtrlCreateButton("Koordinat Bul", 8, 8, 107, 21) $Input1 = GUICtrlCreateInput("", 9, 40, 106, 21) $Input2 = GUICtrlCreateInput("", 138, 24, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) $Graphic1 = GUICtrlCreateGraphic(8, 72, 361, 1) GUICtrlSetColor(-1, 0x004000) $Label1 = GUICtrlCreateLabel("Salise", 186, 28, 60, 17) $Combo1 = GUICtrlCreateCombo("", 248, 24, 81, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "1. Sol (Tek)|2. Sol (Çift)|3. Sağ") $Label2 = GUICtrlCreateLabel("Komut", 336, 28, 56, 17) $Button2 = GUICtrlCreateButton("F6 (Başla)", 8, 80, 75, 25) $Button3 = GUICtrlCreateButton("F9 (Durdur)", 88, 80, 75, 25) $ButtonEnter = GUICtrlCreateButton("F4 (ENTER)", 168, 80, 75, 25) $Label3 = GUICtrlCreateLabel("Coder: asmazh", 8, 120, 203, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Global $Coor, $TickStyle global $enter =false While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 GUICtrlSetState($Button1, $GUI_DISABLE) _CoorToMake() GUICtrlSetData($Input1, $Coor[0] & ";" & $Coor[1]) GUICtrlSetState($Button1, $GUI_ENABLE) If Not WinActive($Form1, "") Then WinActivate($Form1, "") Case $Button2 _basla() case $Button3 _dur() case $ButtonEnter enterabas() EndSwitch WEnd func enterabas() $enter = NOT $enter if $enter Then AdlibRegister("_enter", Number(GUICtrlRead($Input2)) * 1) Else AdlibUnRegister("_enter") EndIf EndFunc func _enter() Send("{ENTER}") EndFunc Func _CoorToMake() While _IsPressed("01") <> 1 Sleep(5) ToolTip("Koordinatını almak istediğiniz alanın üstüne" & @CRLF & "fare ile sol tıklayın.") WEnd ToolTip("") $Coor = MouseGetPos() EndFunc Func _StartTick() If $TickStyle = 1 Then MouseClick("left", $Coor[0], $Coor[1], 1, 0) ElseIf $TickStyle = 2 Then MouseClick("left", $Coor[0], $Coor[1], 2, 0) Else MouseClick("right", $Coor[0], $Coor[1], 1, 0) EndIf EndFunc func _dur() AdlibUnRegister("_StartTick") endfunc Func _basla() If Not IsArray($Coor) Or _ GUICtrlRead($Input2) = "" Or _ GUICtrlRead($Combo1) = "" Then MsgBox(0, "Eksik görünen birşey var!", "Gerekli yerleri doldurduğunuza emin olun", $Form1) Else $TickStyle = Number(StringLeft(GUICtrlRead($Combo1), 1)) AdlibRegister("_StartTick", Number(GUICtrlRead($Input2)) * 1) EndIf endfunc[/spoiler]
Uzun zamandır autoit kullanmadım fakat F4'e göre enter olayını ayarladım.Ayrıca tick sayısını 0.1 saniyeden (yani değer olarak 100) den aşağı yapmazsan programında donma sorunları yaşamazsın.
-
Anakartının ethernet kısmında bi sorun olmuş olabilir.Çünkü modemsel bi sorun olsa telefonunda da sorun olurdu.Yazılımsal bi sorun olsa format atınca giderdi (eğer modifiyeli bi sistemle atıyorsan formatı hala sorun onda olabilir orjinal dene.Tabiki hep kullandığın, formattan sonra kurduğun içinde virüs olabilecek yazılım da buna sebep olabilir).Eğer bunlar değilse sorun bilgisayarının ethernet kısmından kaynaklı bi servise götürmen gerekli.
-
[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] -
[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] -
Biraz araştırma yaptım,
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
dışında o kısmı transparan yapma ile ilgili yok forumlarda.Autoit biraz eksik kalıyor bu kısımda.Winapi udf sinde de bir şeyler bulamadım.Belki orayı label değil de winapi ile settext gibi (tam hatırlamıyorum yazı yazanları) onlarla yapılabilir.
-
Linkler güncellenmiştir.
-
1
-
Pencere Başlığını Alma
in AutoIT
Posted