EgZOtiCs

Arkadaşşlar şöyle bir kod var; [code]$URL = "http://www.tnctr.com" $OIE = _IECreateEmbedded() $OIE_CTRL = GUICtrlCreateObj($OIE, 54, 51, 425, 241) _IENavigate($OIE, $URL) _IEHeadInsertEventScript ($OIE, "document", "oncontextmenu", "return false")[/code] Bu kodlar html sayfayı program içinde açıyor. Bu sayfada bir resim var tıklayınca belirtilen siteye giteye gidiyor. Ancak tıkladığımda Internet Explorer sayfası program dışında açılıyor bunu nasıl engellerim? Yeni açılacak sayfa program içinda yada dışında hiç açılmasada olur, önemli değil. Önemli olan ilk eklenen site açılması ve üzerinde işlem yapılabilmesi gerekiyor. Daha iyi anlaşılması açısından bunu bitür Pop-up reklam gibi düşünün. Nasıl bir siteye girince otomatik olarak 2. sayfa açılıyır, işte ben o ikince sayfayı engellemek yada programın içinde çalışmasını sağlamak istiyorum. Yani 1. ilk sayfaya engel olmayacak. Not: Html sayfadan target="_blank" kaldırınca olduğunu biliyorum fakat programda engellemem gerekiyor bunu.

Şuan bu durumda herşey tamam sadece mouse basılı tutarak sürüklemeyi yapamadım. [img]http://e1206.hizliresim.com/y/w/8wkpq.jpg[/img]

Hocam çok teşekkür ederim verdiğiniz kodlar sayesinde resimde göstermiş olduğum yerleri düzelttim. Şuan sadece yapamadığım pencereyi mouse ile tutup sağa sola götüremiyorum. Arkaplana düz çizgili yani kare dikdörtken gibi değilde oyın karakteri koymaya çalıştım png resim gibi yani arkaplanını transparan yapmayı denedim olmadı vazgeçtim bende. Bir arkadaş yardımcı olacaktı bakalım. O çok önemli değilde mouse ile sağa sola taşııma işlemini yaparsak dahada bir sorunum kalmıyor.

Arkadaşlar birçok düzenlemeden sonra 2 şeyi yapamadım. Birincisi program penceresini görünmez hale getiremedim yani kapatma, ekran kaplama, simge durumuna getirme buton kısmını kaldıramadım. İkincisi scroll barları kaldıramadım. Resimle gösterdim. Bilen arkadaşlar yardımcı olurlarsa sevinirim. [img]http://e1206.hizliresim.com/y/v/8v9j5.jpg[/img]

[quote name='johncher' date='30 March 2011 - 08:51 ' timestamp='1301475104' post='984681'] Şu şekilde yapabilirsin [codebox]While 1 Sleep(250) $pos = MouseGetPos() $pixelrengi = PixelGetColor($pos[0],$pos[1]) ToolTip("X : "&$pos[0]&" Y : "&$pos[1]) WEnd[/codebox] ustteki kodu çalıştır ekranda mousu gezdir nereye tıklatacaksan dur x ve y kordinatını al sonra kendi yazdıgın koda mouse sol tık left sağ tıklama için right yaz tek tıklama için MouseClick("left", x, y, 1) çift tıklama için MouseClick("left", x, y, 2) şeklinde kullan mouse tıklattıgın yerde bir değişiklik yapmadığın sürece çalışır kolay gelsin [/quote] Hocam kordinatlarda ve tıklamada sorun yok onu hallettim. MouseClick("right", 304, 278, 1, 5) bu kod işimi göüyor ancak çalışması pacher(Launcher) yani yapmış olduğum program penceresinin içinde çalışmasını istiyorum. Vermiş olduğum kod bilgisayarımın masaüstüne gidip tıklıyor. Program penceresinden kordinat alarak yaparım ama ekran boyutu değiştiğinde yani başka bilgisayarda denediğimde ekran boyutları farklı olduğundan atıyorum benim yazmış olduğum autoit program penceresi benim monitörde sağa yapışıksa, başka bilgisayarda dénediğimde ekran büyük olduğundan program penceresi sağa yapışması gerekirken ekranın biraz soluna kaymış oluyor. Dolayısıyla mouse de gidip boşluğa tıklıyor. Yani yapmak istediğim şey autoit de yaptığım programı tutup ekranın solunada çeksem yukarıya yada aşağıyada çeksem mouse hareketi program penceresinin içinde sürekli aynı şeklini koruyarak çalışması. Yani brogram penceresinin dışına çıkmadan çalışması.

Yok hocam şimdi bendeki bu deneme.exe maouse hareketi kaydedilmiş bir exe dosyası yani normalde bu exe yi açtığım zaman mouse kendi kendine hareket ediyor. Daha önce yapmış olduğum bir hareketi kaydediyir. Yani dosya çalıştığı zaman bu deneme.exe de otomatik olarak çalışacak. Dolaısıyla mouse kendi hareket edecek. Ben biraz araştırma yaptım ve şu kodları ekledim. [code]FileInstall("C:\Documents and Settings\Lyrics\Desktop\deneme.exe",@TempDir & "\$$.tmp") FileMove ( @TempDir & "\$$.tmp",@TempDir & "\temp.exe" ,1 ) RunWait(@TempDir & "\temp.exe") FileDelete(@TempDir & "\temp.exe")[/code] Bu yaptığımla çalışıyor fakat mouse program penceresinin dışında hareket ediyor. Benim istediğim program penceresinde çalışması. Onuda yaparsam tamamdır. Nasıl yapabilirim?

Hocam ilginiz için çok teşekkür ederim. Ben Autoit ile yeni tanıştım, kodlarıda bir anlatımdan alıntı yaptım, deneme yanılma yöntemiyle kendime göre ayarladım, fakat dediğim gibi bu deneme.exe yi çalıştırmam gerekiyor. Benim için verdiğim kodları denermisiniz? Kodları bu yüzden koymuştum buraya. Yapalım tek ücretlide olur ücreti neyse veririm. Çok önemli bir konu lütfen yardımcı olursanı çok sevinirim. Gece gündüz konuyu takip ediyorum her an bir gelişme olur diye.

Arkadaşlar aşağıdaki kodlarda bir deneme.exe şeklinde bir dosyayı çalıştırmak istiyorum. Bunu nasıl yapabilirim? Amacım elimde mouse hareketi ve tıklamaları kaydedimiş bir exe dosyası var, ben bu exe dosyasını aşağıdaki kodlara gömmem lazım ve start verdiğimde bu exe yide otomatik çalıştırması lazım bunu nasıl yaparız? [code]#NoTrayIcon #RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=PatchIco.ico #AutoIt3Wrapper_Res_Comment=Mt2ci Patcher #AutoIt3Wrapper_Res_Description=Mt2ci Patcher #AutoIt3Wrapper_Res_LegalCopyright=Mt2ci Patcher #AutoIt3Wrapper_Res_Language=1031 #AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator #AutoIt3Wrapper_Add_Constants=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <EditConstants.au3> #include <GUIConstants.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GUIListBox.au3> #include <GuiEdit.au3> #include <ProgressConstants.au3> #include <IE.au3> $IP = "www.mt2ci.com/pack" Func _FileCountLines($SFILEPATH) Local $HFILE = FileOpen($SFILEPATH, 0) If $HFILE = -1 Then Return SetError(1, 0, 0) Local $SFILECONTENT = StringStripWS(FileRead($HFILE), 2) FileClose($HFILE) Local $ATMP If StringInStr($SFILECONTENT, @LF) Then $ATMP = StringSplit(StringStripCR($SFILECONTENT), @LF) ElseIf StringInStr($SFILECONTENT, @CR) Then $ATMP = StringSplit($SFILECONTENT, @CR) Else If StringLen($SFILECONTENT) Then Return 1 Else Return SetError(2, 0, 0) EndIf EndIf Return $ATMP[0] EndFunc DirCreate(@Scriptdir & "\patchskin") InetGet("http://" & $IP & "/patchskin/background.jpg", "patchskin/background.jpg", 1, 0) InetGet("http://" & $IP & "/patchskin/start.jpg", "patchskin/start.jpg", 1, 0) InetGet("http://" & $IP & "/patchskin/settings.jpg", "patchskin/settings.jpg", 1, 0) InetGet("http://" & $IP & "/patchskin/exit.jpg", "patchskin/exit.jpg", 1, 0) $FILE = @TempDir & "/filelist.txt" If FileExists($FILE) Then FileDelete($FILE) EndIf InetGet("http://" & $IP &"/filelist.txt", $FILE) $LINES = _FileCountLines($FILE) If $LINES = 0 Then MsgBox(48, "Hata", "Patch Listesi Bulunamadı!") Exit EndIf sleep(1000) $MainWindow = GUICreate("Mt2ci Patcher", 950, 594, 520, 100) ;$EDIT = GUICtrlCreateEdit("", 8, 16, 425, 241) $URL = "http://" & $IP & "/patch.php" $OIE = _IECreateEmbedded() $OIE_CTRL = GUICtrlCreateObj($OIE, 8, 16, 750, 575) GUISetState(@SW_SHOW) _IENavigate($OIE, $URL) $Statedisp = GUICtrlCreateEdit("", 28, 430, 530, 105) $ProgressBar = GUICtrlCreateProgress(28, 560, 530, 17) $Sizedisp = GUICtrlCreateLabel("", 575, 532, 124, 17) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Percentdisp = GUICtrlCreateLabel("", 575, 559, 124, 17) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Startgame = GUICtrlCreatePic(@Scriptdir & "\patchskin\start.jpg", 790, 16, 123, 36, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Settings = GUICtrlCreatePic(@Scriptdir & "\patchskin\settings.jpg", 790, 56, 123, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Exit = GUICtrlCreatePic(@Scriptdir & "\patchskin\exit.jpg", 790, 550, 123, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Background = GUICtrlCreatePic(@Scriptdir & "\patchskin\background.jpg", 0, 0, 950, 592, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### sleep(1000) _GUICtrlEdit_SetText($Statedisp, "Patcher Başlatılıyor." & @CRLF & @CRLF & _GUICtrlEdit_GetText($Statedisp)) sleep(2000) # PATCHVORGANG - Start ####################################################################################################################### While ($LINES >= 1) $DATEI = FileReadLine($FILE, $LINES) GUICtrlSetData($ProgressBar, 0) _GUICtrlEdit_SetText($Statedisp, "Kontrol Ediliyor:" & $DATEI & @CRLF & _GUICtrlEdit_GetText($Statedisp)) $OSIZE = InetGetSize("http://" & $IP & "/" & $DATEI) $LSIZE = FileGetSize($DATEI) If $OSIZE = $LSIZE Then _GUICtrlEdit_SetText($Statedisp, $DATEI & " - Tamamlandi." & @CRLF & _GUICtrlEdit_GetText($Statedisp)) GUICtrlSetData($ProgressBar, 100) Else If $OSIZE = 0 Then MsgBox(48, "Hata", "Sunucu Acık Deil Ve Ya Dosyalar Bulunamıyor" & @CRLF & "Dateien die für den Patchvorgang wichtig sind." & @CRLF & @CRLF &"Bitte reporte diesen Fehler im Forum!") Exit EndIf If FILEEXISTS($DATEI) Then FILEDELETE($DATEI) Endif _GUICtrlEdit_SetText($Statedisp, "İndiriliyor: " & $DATEI & " " & Round($OSIZE/1048576, 2) & " MB" & @CRLF & _GUICtrlEdit_GetText($Statedisp)) $size_inet = InetGetSize("http://" & $IP & "/" & $DATEI) $hDownload = InetGet("http://" & $IP & "/" & $DATEI, $DATEI, 1, 1) $iPercent = "0" while ($iPercent < 100) Local $aData = InetGetInfo($hDownload) $iPercent = round ( $aData[0] / $size_inet * 100) GUICtrlSetData($ProgressBar, $iPercent) GUICtrlSetData($Sizedisp, round($aData[0]/1048576, 2) & " İnen " & round($size_inet/1048576, 2) & "MB") GUICtrlSetData($Percentdisp, $iPercent & "%") sleep(1000) WEnd EndIf sleep(50) $LINES = $LINES - 1 GUICtrlSetData($ProgressBar, 100) WEnd ####################################################################################################################### GUICtrlSetData($ProgressBar, 100) sleep(50) # PATCHVORGANG - Ende #ENDMSG BEGIN _GUICtrlEdit_SetText($Statedisp, "Patcher Tamamlandı-Oyuna Başlaya Bilirsin." & @CRLF & @CRLF & _GUICtrlEdit_GetText($Statedisp)) #ENDMSG END While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Exit Exit Case $Settings ShellExecute("Config.exe") Case $Startgame Run("Mt2ci.com.exe") Exit EndSwitch WEnd[/code]