Jump to content

mustafakara

Üye
  • Posts

    197
  • Joined

  • Last visited

Everything posted by mustafakara

  1. özür diliyorum haklısınız autoit komutlarıyla sildiğimizde boş kalmıyor nedense aklımda öyle kalmış sanıyorum ben şununlakarıştırdım manuel olarak sildiğimizde boşluklar oluşuyordu veri eklediğimizde ise boşluklara değil en sona ekliyordu ben onunla karıştırdım kusura bakmayın lütfen herkese kolay gelsin
  2. arkadaşlar merhabalar ini dosyasından veri sildiğimizde yerlerindeki satırlar boş kalıyor bu satırlarıda veriyle birlikte nasıl sileriz?
  3. arkadaşlar herkese teşekkürler tatil nedeniyle konunun takipçisiolamadım o yüzden örneklere ancak şimdi bakıyorum ilk olarak SwithMail.exe programına baktım ancak uygulama düzgün başlayamadı iletisi aldım diğer verilen linklere bakacağım teşekkürler bilen bir arkadaş bu konuya örnek verirse memnun olurum herkese kolay gelsin
  4. inceledim ancak pek birşey anlamadım pop3 e ilişkin bir örnek verebilirmisiniz mail göndermeyle alakalı teşekkürler
  5. önerdiğiniz ayarların hepsini daha önce denedim malesef çalışmıyor autoit formlarınada baktım herşey aynı neden bilmiyorum ama olmuyor bu konuyu iyi bilen bir arkadaş mail alma ve mail gönderme hakkında bilgi berirse memnun olacağız
  6. arkadaşlar ipport u 25 ten 587 yaptığımda sunucu gönderenin adresini redetti sunucunun yanıtı 530.5.0 start tls command gibi bir yanıt alıyorum port 25 te ise sunucuya bağlanamadı yanıtı alıyorum lütfen yardım sanıyorum tls yi eklemem gerekecek nasıl yaparım
  7. malesef hotmail de bu dediğiniz yok durumumdan dolayı belki ben fark edemedim diye başka arkadaşa baktırdım ancak seçenekler içersinde sadece silmeye ilişkin böyle bir ayara rastladık arkadaşlar en azından yukarıdaki örnek üzerinden yardımcı olabilirmisiniz
  8. sevgili reyiz söyleminize ilişkin herhangibir ayara rastlamadım malesef
  9. sevgili reyiz az önce inceledim gerekli ayarları yaptım ancak yinede gönderemedim şimdi hesabıma girip diğer ayarlara bakacağım teşekkürler kolay gelsin
  10. işte arkadaşlar bu örnekle gmail üzerinden gönderebiliyorum ama hotmail de olmuyor yardımcı olursanız memnun olurum örnek: #Include<file.au3> $ToAddress = "[email protected]" ; destination address of the email - REQUIRED $FromName = "mustafa karabunar" $Subject = "önemli" $Body = "mail deneme" $AttachFiles = "c:\\boot.ini" ; the file you want to attach- leave blank if not needed $Importance = "high" ; Send message priority: "High", "Normal", "Low" Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") _BL_SEND_GMAIL($ToAddress,$FromName,$Subject,$Body,$AttachFiles,$Importance) Func _BL_SEND_GMAIL($ToAddress,$FromName = "",$Subject = "",$Body = "",$AttachFiles = "",$Importance = "Normal") Local $SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED Local $Username = "benim adresim" Local $Password = "benim şifrem" ;~ Local $IPPort = 25 ; port used for sending the mail ;~ Local $ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS ;~ Local $CcAddress = "[email protected]" ; address for cc - leave blank if not needed ;~ Local $BccAddress = "[email protected]" ; address for bcc - leave blank if not needed Local $CcAddress = "" ; address for cc - leave blank if not needed Local $BccAddress = "" ; address for bcc - leave blank if not needed Local $IPPort=465 ; GMAIL port used for sending the mail Local $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using https Local $FromAddress = $Username & "@gmail.com" Local $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) If @error Then MsgBox(0, "Mesaj gönderilirken hta oluştu", "Error code:" & @error & " Description:" & $rc) EndIf EndFunc ; The UDF Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0) Local $objEmail = ObjCreate("CDO.Message") $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = $s_ToAddress Local $i_Error = 0 Local $i_Error_desciption = "" If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress $objEmail.Subject = $s_Subject If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then $objEmail.HTMLBody = $as_Body Else $objEmail.Textbody = $as_Body & @CRLF EndIf If $s_AttachFiles <> "" Then Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") For $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console If FileExists($S_Files2Attach[$x]) Then $objEmail.AddAttachment ($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) SetError(1) Return 0 EndIf Next EndIf $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer If Number($IPPort) = 0 then $IPPort = 25 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort ;Authenticated SMTP If $s_Username <> "" Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password EndIf If $ssl Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True EndIf ;Update settings $objEmail.Configuration.Fields.Update ; Set Email Importance Switch $s_Importance Case "High" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail="" EndFunc ;==>_INetSmtpMailCom ; ; ; Com Error Handler Func MyErrFunc() $HexNumber = Hex($oMyError.number, 8) $oMyRet[0] = $HexNumber $oMyRet[1] = StringStripWS($oMyError.description, 3) ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF) SetError(1); something to check for when this function returns Return EndFunc ;==>MyErrFunc
  11. sevgili arkadaşlar ben yaptığım bir programa mail gönderme bölümü eklemek istiyorum mail göndermeyle alakalı kodlar elimde var ancak nedense gmail üzerinden gönderiyor ancak hotmail üzerinden göndermiyor her ikisindende gönderebileceğim bir kod yazabilirmisiniz bana teşekkürler
  12. sevgili asmazh kolay gelsin bizim input yada combo lara yazdığımız yazılar soldan başlayarak yazdıklarımızı listede tutup diğerlerini listeden eliyor benim söylemek istediğim ise ilk etapta soldan başlayarak yazdıklarımı içerenleri bulduktan sonra daha sonrada boşluktan sonra yazdıklarımı içerenleri eklemesini istiyorum kara yazdığımda ilk etapta karayla başlayanları daha sonrada misal mustafa karayı eklemesi gibi yinede teşekkürler kolay gelsin
  13. sevgili asmazh öncelikle teşekkür ederim tatil nedeniyle bakamamıştım ancak şimdi bakabildim kususuruma bakma lütfen ben bir telefon rehberi programı yapıyorum hatta daha önce yaptım onun birazdaha farklısını yapmaya çalışıyorum daha öncekinde isim arama bölümünü combobox u AutoComplete olarak yaptım ancak bunda benim yazdıklarıma yakın olanları tamamlıyordu ben şunu istiyorum hatta bu yanlızca combobox ta oluyorsa daha iyi afyonkarahisar bazında düşünürsek bana bir devlet hastahanesi lazım ben devlethastahanesi yazdığımda "emirdağ devlet hastahanesi" "dinar devlet hastahanesi" merkezi yanlızca devlet hastahanesi olarak kaydetmişim onuda devlet hastanesi olarak listelemesini istiyorum yanidevlet hastanesi yazdığımda bulunan liste şu şekilde olmalı "devlet hastahanesi" "emirdağ devlet hastanesi" "dinar devlet hastahanesi" yukarıda google.com daki gibi birşey olabilir demiştim bunun sebebi ben görme engelli olduğum için orada yazdığımda yazdığıma yakın olanlar liste halinde çıkıyor ben ok tuşlarıyla dolaşabiliyorum şimdi sizin yaptığınız ve benim verdiğim örnekte yazdığımı bitirdikten sonra tab tuşuna basarak listeye ulaşıyorum dahasonra ok tuşlarıyla dolaşıyorum umarım anlatabilmişimdir
  14. sevgili arkadaşlar comboboxta yazılanı listelemesini istiyorum bunun için ne yapmalıyım daha önce bir arkadaşın yaptığı örnek vardı ancak bu yanlızca kelime başından itibaren listeliyor benim istediğim sadece kelime başından itibaren değil boşluktan sonra yazdıklarımı içerenleride listelemesini istiyorum örneğin liste içersinde şu isimler var "mustafa kara" "hamit kara" "kara yolları" "murat ak" ben "kara" yazdığımda kara yolları mustafa kara hamit kara gibi isimleri listelemesini istiyorum. bunu yanlızca combo içersine yapabilirsek daha iyi olur çünkü ben ismi yazdıktan sonra birde tab tuşu ile listeye gitmem gerekiyor aynı google gibi birşey istiyorum tabi mümkünse şimdidem teşekkür ederim. arkadaşın yaptığı örnek: #include <GUIListBox.au3> #include <GuiConstantsEx.au3> Global $FILE_LIST = @ScriptDir & "\Config.ini" _Main() Func _Main() Local $hCombo,$mylist,$SET_DATA,$BL_Value,$BL_Value1 = "?" GUICreate("YAZILANI LİSTELE", 400, 296) $hCombo = GUICtrlCreateCombo("", 0, 3, 400, 24) $mylist = GUICtrlCreateList("", 0, 24, 400, 97) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit EndSwitch $BL_Value = GUICtrlRead($hCombo) If $BL_Value <> $BL_Value1 Then GUICtrlSetData($mylist,"") $var2 = IniReadSectionNames($FILE_LIST) For $I = 1 To $var2[0] If StringLeft($var2[$I],StringLen($BL_Value)) = $BL_Value Then GUICtrlSetData($mylist,$var2[$I]) Next $BL_Value1 = $BL_Value _GUICtrlListBox_SetCurSel($mylist, 0) EndIf WEnd GUIDelete() EndFunc ;==>_Main
  15. sevgili asmazh söylediklerini anladım ayrıca örnek işime yaradı çok teşekkürler sanada kolay gelsin
  16. arkadaşlar merhabalar aşağıdaki örnekte tab tuşu ile gezerken hangi inputun üzerine geldiysem o inputun adını mesajla almak istiyorum benim örneğimde inputun üzerine gelince veriyor ancak ayrılırken de aynı mesajı veriyor hatta yazarken de uyardığı için yazamıyorum. ben sadece inputun üzerine geldiğimde uyarı almak istiyorum nasıl birşey yapmalıyım? örnek Global $gui = GUICreate("Giriş Paneli", 500, 250) Global $Input1 = GUICtrlCreateInput("", 112, 18, 185, 21, 0x0001) Global $Input2 = GUICtrlCreateInput("", 112, 62, 185, 21, BitOR(0x0020, 0x0001)) GUIRegisterMsg(273, "MY_WM_COMMAND") GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit EndSwitch WEnd Func MY_WM_COMMAND($hWnd, $iMsg, $wParam, $lParam) Switch $lParam Case GUICtrlGetHandle($Input1) MsgBox(0,"slm","input 1 üzerindesiniz") Case GUICtrlGetHandle($Input2) MsgBox(0,"slm","input 2 üzerindesiniz") EndSwitch EndFunc
  17. arkadaşlar Alive Video Converter lazım aratıyorum ancak bulduğum linklerin hepsi ölü yardımcı olurmusunuz lütfen
  18. sevgili arkadaşlar merhabalar bende bu xp yi indirip kurdum gayet iyi ve hızlı olarak çalışıyor lakin ie 8 bu sistemdede sayfaları geç açıyor bazen donuyor daha öncede kendi modifiye ettiğim windows lardada aynı sorunla karşılaşıyordum bu neden kaynaklanır acaba ayrıca arkadaşa emeği için teşekkür ediyorum gayet mükemmel olmuş
  19. sevgili blue_life teşekkürler söylediğin değeri zaten 2 olarak belirlemiştim ancak ona rağmen otomatik olarak başlamıyor ilgili servisler seninde bildiğin gibi birbirine bağlı olarak çalışıyor yani servislerin belirlibir sıra ile çalışması gerekiyor bunu nasıl başarabilirim
  20. sevgili arkadaşlar merhabalar bilgisayarımı açtığımda servislerin otomatik olarak başlaması için ne yapmalıyım birde belirli bir sıraya göre başlamalılar autoit programı ile servisleri kuruyorum reg kayıtlarını girdim servisleri başlattığımda gayet iyi çalışıyorlar ancak bilgisayarı yeniden başlattığımda çalışmıyorlar yeniden kendim başlatmak zorunda kalıyorum yardımcı olursanız sevinirim herkese kolay gelsin
  21. sevgili blue_life teşekkürler test ettim tam istediğim gibi
  22. sevgili arkadaşlar merhabalar Sistemde yüklü servisin çalışıp çalışmadığını nasıl öğrenebilirim?
  23. sevgili blue_life malesef kaldırmadı hala kurulu gibi görünüyor bu arada benim son olarak upload ettiğim dosyalara göre yaparsan sevinirim en baştaki deneme amaçlı kullandığım bir dosya idi
  24. sevgili blue_life au3 dosyası ve diğer dosyaları http://karabunar.zxq.net/programlar/Yeni%20Klasor.rar adresinde sadece haspa ilişkin fonksionlar var teşekkürler yardımın için
  25. sevgili arkadaşlar hepinize teşekkürler öncelikle cevabımı yazmakta geciktiğim için çok özür diliyorum. ben anlatmak istediğimi tam olarak anlatamamışım sanıyorum bu program kendini kurarken nerelere bilgi atıyor programı autoit ile katılımsızkurulum olarak yaptım lakim bu program bilgisayarda daha önce kuruldu ise aynı kurulumu tekrar gerçekleştirmek hataya yol açıyor onedenden dolayı kurulum yapmadan önce autoit programı ile sistemin incelenmesi gerekmektedir işte olay burada başlıyor ben reg kayıtlarını ve C:\WINDOWS\system32\drivers içersindeki HL_EMUL.sys adlı dosyayı sildiğim halde exe dosyasını çalıştırdığımda program bilgisayarımda kurulu olarak görünüyor başka nerelere birşeyler yüklemiş olabilir yada kendinin daha önceden kurulduğunu nereden görüyor bu programı kurmadan önce autoit programı sistemden tamamen temizleyecek ve kurulum yapacak amacım bu teşekkürler
×
×
  • Create New...