mesale0077

kodda sıkıntı yaşıyorum [code]#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("[#] Form1 [#]", 312, 463, 449, 224) $Input1 = GUICtrlCreateInput("04061984", 16, 80, 257, 21) $Edit1 = GUICtrlCreateEdit("", 16, 144, 257, 249,BitOR($ES_AUTOVSCROLL,$WS_VSCROLL)) $Label3 = GUICtrlCreateLabel("Sonuç:", 128, 120, 38, 17) $Button1 = GUICtrlCreateButton("Hesapla", 24, 416, 97, 33) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 GUICtrlSetData($Edit1,_TekHane(GUICtrlRead($Input1))) EndSwitch WEnd Func _TekHane($number) if Not IsNumber($number) Then Return -1 Local $return = 10, $ilk = 1 While $return>9 if $ilk Then $yeniden = StringSplit($number,"") $ilk = 0 Else $yeniden = StringSplit($return,"") EndIf $return = 0 for $i = 1 to $yeniden[0] $return += $yeniden[$i] Next ConsoleWrite($return&@CRLF) WEnd Return $return EndFunc [/code]

peki http://www.mediafire.com/?16524gjt765ng55 örnek apz yaptım input 1 den input 2 den bilgi alacak autoit mesala bunları autoitle toplayıp input 3 e yazacak mesala nasıl yaparız ams ve autoit ile ilişkilendirme nasıl olacak bir ams yi çözemedm flash ta yapılıyor böyle bir şey ams nasıl bilmiyorum

çözüm bulduysan ne güzel lakin linki verdiğim programı virüslü düşüncesiyle silmişler malüm antivirüs programları autoitti biraz sevmiyorlar yazdığım programları dahi virüs olarak algılıyorlar onun yüzünden antivirüslerin hepsini kaldırdım sıkıntı olursa ComboFix.exe ile taratıyorum yetiyor

haklı olabilirsin ama demek istediğim direk müdahele işi anlıyorum ama ,ams ile tam çalışmaya başlamadım lakin ben sadece ams yi arayüz olarak kullanmak istiyorum txt olabilir ,çift dosya ile yapılcak galiba sürekli sil oluştur olacak o zaman neyse ,ams yeni ögreniyorum inceleyip ona göre bir gelişme saglarım sanada kolay gelsin ams konusunda

Baba_ haklı autoitti bırakma,ve arayüz olarak bazı dll kullanarak arayüzlerini kullanma css le yapılmış menüleri kullanma arayüz olarak swf lada flash arayüz olarak kullanabilinir arayüz sorun degil png kullabilirsiniz yani arayüz kullanmak için kodlamaya ihtiyaç var doğru ben amsyi autoittin arayüzü olarak kullanmak istidim ama autoitten ams ye veri aktaramadım ams den veri alamadım yoksa bu işi flash ta yapılabiliniyor flashta hazırlanan inbox falan onlardan veri alınıp gene editbox yada vs yerlere bilgi aktarabiliyorum flashla yapılan arayüz muhteşem bu arada baba arkadaşa yaptığın teklif benim içinde geçerlimi amsyi bende çok merak ediyorum autoit te bilgilerim senle bildigim kadarıyla senle paylaşmak ve sizden ams öğrenmek ams de tek sıkıntı pluing sorunu o pluingleri buldukmu sorun yok ams çalışmaları ve arayüz muhteşem ona lafım yok aynı işi flashta yapılmış arayüz kullanıyorum mesala html http://www.mediafire.com/?l873ulsfzq5s7ze flash http://www.mediafire.com/?7rfh883nddn1xf6

http://www.mediafire.com/?j1c112r54r58ko3 dosyasını koy bunu kullan ,digerinde sorun var AU3 Recorder dosyalarını yukarıdakileriyle degiştir sorun çözülecektir scite prğramın kurulumu yada kurulmuş klasör yada dosyasının linkin paylaşırsanız içine yerleştirip kullanabilirsiniz.

arkadaşlar bu şekil flash arka planı transparent oluyormuş çalışırsa hamgi işletimde ,autoit versiyonu, adobe versiyonu hakkında bilgi verebilirler mi #include <WINAPI.au3> kodları [code]#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <WINAPI.au3> $GUI = GUICreate("FLASH", 300, 400, -1, -1, -1, $WS_EX_LAYERED) GUISetBkColor(0xABCDEF) GUICtrlCreateLabel("My Transparent Flash Object (You can drag me from here)", 10, 10, 200, 30, -1, $GUI_WS_EX_PARENTDRAG) $oFlash = ObjCreate("ShockwaveFlash.ShockwaveFlash") $FlashCtrl = GUICtrlCreateObj($oFlash, 0, 100, 400, 250) $oFlash.Movie = @ScriptDir & "\loading.swf" $oFlash.BGColor = "#ABCDEF" $oFlash.Menu = False $oFlash.Play $oFlash.wmode = "transparent" _WinAPI_SetLayeredWindowAttributes($GUI, 0xABCDEF, 255) GUISetState() While 1 If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit WEnd [/code] sitesi; http://www.autoitscript.com/forum/topic/141993-solved-p-make-my-swf-movie-have-a-transparent-background/ örnek resim [img]http://up.syriarose.com/uploads/images/syriarose-fc8b48265c.jpg[/img] dosya; [code]http://www.autoitscript.com/forum/index.php?app=core&module=attach&section=attach&attach_id=37981 [/code] bende neden çalışmıyor,nasıl olduğunu çözemedim şimdiden herkese teşekkürler

ComboFix.exe dene

sen bu kodu çalıştırdınmı TrayBoxCreate("", "HAZIRLAYAN:"&@CRLF&"mesale0077"&@CRLF&"Bilgi:"&@CRLF&"İlginiz için teşekkürler") burdan istedigini değiştir kodunu yolla ben sana örnek yazayım ordan degişiklikleri yaparsın örnek koduna ekleyeyim yoksa bu şekilde çözüm bulamıyacağız

<script language="javascript" src="http://in.sitekodlari.com/haber3.js"></script> autoit html kodlarına ekle

biraz çaba ve örnekler yapmalısın kimse kolay kolay öğrenmiyor takıldığında yardımcı olacak çok arkadaş var, sitemizde yaptıkları örnekleri incele,autoit sitesi var orda her konudan msj var lakin; yaptığın çalışmalar olacak ki takıldığın yerleri sorup öğrenesin neyse bu konu hakkında udf var http://www.autoitscript.com/forum/topic/85977-system-tray-message-box-udf/page__st__20 incele gerisi sana kalmış system-tray-message-box-udf yukarıdaki kodların modifiyeli hali buda benden [code]#include <WindowsConstants.au3> Func TrayBoxCreate($TBTitle, $TBText, $display_Time = 2500) $TBgui = GUICreate($TBTitle,250, 100, @DesktopWidth - 250, @DesktopHeight - 135,$WS_POPUP,$WS_EX_TOOLWINDOW + $WS_EX_TOPMOST) _GuiRoundCorners($TBgui, 0, 0, 100, 100) GUISetBkColor(0x0000FF) $Status = GUICtrlCreateLabel($TBText, 40,20, 210, 100) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $TBgui, "int", 1000, "long", 0x00040008);slide-in from bottom GUISetState() Sleep($display_Time) DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $TBgui, "int", 1500, "long", 0x00040008);slide-in from bottom GUISetState(@SW_SHOW, $TBgui) DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $TBgui, "int", 1000, "long", 0x00050004);implode GUISetState(@SW_HIDE, $TBgui) EndFunc Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3) Dim $pos, $ret, $ret2 $pos = WinGetPos($h_win) $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3) If $ret[0] Then $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1) If $ret2[0] Then Return 1 Else Return 0 EndIf Else Return 0 EndIf EndFunc TrayBoxCreate("", "HAZIRLAYAN:"&@CRLF&"mesale0077"&@CRLF&"Bilgi:"&@CRLF&"İlginiz için teşekkürler")[/code]

merhaba kingdown yaptığın projeyi bizimle paylaşırmısın kolay gelsin

blackman12 arkadaşım konuyu buraya açmış ve kodlarıda burda paylaşmış ,incelemek istersen http://www.autoitscript.com/forum/topic/141891-how-do-i-remove-the-fields-shown-in-the-picture/

Son isteğin olan mause ile oyanatma aynı kodun devamı benimde böyle sorunlarım oluyordu.flash ı arayüz kullanmak gibi ama senin gibi çok uğraştım transparent olayına gelince kodları paylaşsaydın onu hallerdik lakin kodu görmeden çözüm saglamak istemem neresinden tutarsan tut ,kaydır son istediğin kod; [code];1 --> ; GuiCreate("MyGUI", $wit, $hit, -1,-1,$WS_POPUP) ;2 --> örnek kod ;HotKeySet("{ESC}","OnAutoItExit") #include <IE.au3> #include <GuiConstants.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> #include <StaticConstants.au3> #include <WinAPI.au3> #include <GUIConstantsEx.au3> $oIE = _IECreateEmbedded() $Form1 = GUICreate('Test',800,600,-1,-1,$WS_POPUP) GUICtrlCreateObj($oIE,0,0,800,600) _IENavigate($oIE,"http://www.autoitscript.com/forum/forum/2-general-help-and-support/") GUISetState(@SW_SHOW, $Form1) _HideScroll($oIE) While 1 $msg = GuiGetMsg($Form1) Select Case $msg =$GUI_EVENT_PRIMARYDOWN Drag() Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd Func _HideScroll($Temp_Object) Local $hText = 'var temp_h1 = document.body.clientHeight;'& _ 'var temp_h2 = document.documentElement.clientHeight;'& _ 'var isXhtml = (temp_h2<=temp_h1&&temp_h2!=0)?true:false;'& _ 'var htmlbody = isXhtml?document.documentElement:document.body;'& _ 'htmlbody.style.overflow = "hidden";' $Temp_Object.document.parentwindow.execscript($hText,"javascript") EndFunc Func OnAutoItExit() Exit EndFunc Func Drag() dllcall("user32.dll","int","ReleaseCapture") dllcall("user32.dll","int","SendMessage","hWnd", $Form1,"int",$WM_NCLBUTTONDOWN,"int", $HTCAPTION,"int", 0) EndFunc ;kolay gelsin, [/code]

kodları paylaşsaydın iyi olurdu. sana yardımcı olcak konularla ilgil kodlar [code]#include <WindowsConstants.au3> ;1 --> ; GuiCreate("MyGUI", $wit, $hit, -1,-1,$WS_POPUP) ;2 --> örnek kod ;HotKeySet("{ESC}","OnAutoItExit") #include <IE.au3> $oIE = _IECreateEmbedded() $hGui = GUICreate('Test',800,600,-1,-1,$WS_POPUP) GUICtrlCreateObj($oIE,0,0,800,600) _IENavigate($oIE,"http://www.autoitscript.com/forum/forum/2-general-help-and-support/") GUISetState(@SW_SHOW, $hGui) _HideScroll($oIE) Do Until Sleep(10) * GUIGetMsg()==-3 Func _HideScroll($Temp_Object) Local $hText = 'var temp_h1 = document.body.clientHeight;'& _ 'var temp_h2 = document.documentElement.clientHeight;'& _ 'var isXhtml = (temp_h2<=temp_h1&&temp_h2!=0)?true:false;'& _ 'var htmlbody = isXhtml?document.documentElement:document.body;'& _ 'htmlbody.style.overflow = "hidden";' $Temp_Object.document.parentwindow.execscript($hText,"javascript") EndFunc Func OnAutoItExit() Exit EndFunc[/code]

kardeş çalışmalarını mükemmel ve beyenerek takip ediyorum.Bu arada emeginize saygı duyuyorum. yazmış olduğun kodda, @ScriptName yazdığımızda tekrar aynı proğram çalışmıyor ama aynı proğramın kopyasını yapıp adını değiştirip çalıştırdığımızda farklı bir proğram gibi çalışıyor. benim aklıma bir şey geldi kodu bu şekil yaptığımızda ,kendisi 2 defa çalışmıyor ve kopyasıda çalışmıyor yani çalışan bir program oluyor. [code]If _SINGLETON_V2('SINGLETON_V2', 1) Then Exit MsgBox(16, "Hata!", " " &'SINGLETON_V2' & " zaten çalışıyor! ", 5) _SINGLETON_V2('SINGLETON_V2', 0) $GUI = GUICreate("SINGLETON_V2", 370, 146, 192, 124) GUISetState() While 1 If GUIGetMsg() = -3 Then Exit WEnd Func _SINGLETON_V2($SCRIPTNAME, $PARAM) Local Const $MUTEX_ALL_ACCESS = 0x1F0001 If $PARAM = 1 Then Local $RTN = DllCall("kernel32.dll", "hwnd", "OpenMutex", _ "int", $MUTEX_ALL_ACCESS, _ "int", False, _ "str", $SCRIPTNAME) Return $RTN[0] ElseIf $PARAM <> 1 Then DllCall("kernel32.dll", "hwnd", "CreateMutex", _ "int", 0, _ "int", False, _ "str", $SCRIPTNAME) Return 1 EndIf Return 0 EndFunc ;==>_SINGLETON_V2 [/code] [code]Local $list = ProcessList() For $i = 1 To $list[0][0] MsgBox(0, $list[$i][0], $list[$i][1]) Next ; List just notepad.exe processes $list = ProcessList("notepad.exe") For $i = 1 To $list[0][0] MsgBox(0, $list[$i][0], $list[$i][1]) Next [/code] bunu kullanmalıyım yoksa farklı bir yöntem varmı? proğram monitor ,yada çalışan proğram listesi yapmak istiyorum,her hangi proğram çalıştığında proğram adı çalışma saati ve kapanış saati log tutması nasıl yaparız. regstry de bir yere böyle bir kayıt yapıyormu buna benzer regstryda kaydı gördüm shellrun altındaydı galiba ellerine sağlık hayırlı çalışmalar

bluelife 'a teşekkürler.

Merhaba autoit proğramın bulunduğu klasörde Extras\AutoUpdateIt klasörlerinin altında AutoUpdateIt.au3 dosyası var onu incele orda kodlar mevcut

http://www.autoitscript.com/autoit3/docs/functions/InetGetSize.htm http://www.autoitscript.com/autoit3/docs/functions/InetGet.htm burdan kaynak dosyalarını incele