mustafakara
-
Posts
197 -
Joined
-
Last visited
Content Type
Profiles
Forums
Calendar
Posts posted by mustafakara
-
-
arkadaşlar merhabalar
ini dosyasından veri sildiğimizde
yerlerindeki satırlar boş kalıyor bu satırlarıda veriyle birlikte nasıl sileriz? -
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 -
inceledim ancak pek birşey anlamadım
pop3 e ilişkin bir örnek verebilirmisiniz
mail göndermeyle alakalı
teşekkürler -
ö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 -
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 -
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 -
sevgili reyiz
söyleminize ilişkin herhangibir ayara rastlamadım malesef -
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 -
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 -
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 -
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 -
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 -
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 -
sevgili asmazh
söylediklerini anladım
ayrıca örnek işime yaradı çok teşekkürler
sanada kolay gelsin -
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 -
arkadaşlar Alive Video Converter lazım aratıyorum ancak bulduğum linklerin hepsi ölü yardımcı olurmusunuz lütfen
-
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ş -
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 -
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 -
sevgili blue_life teşekkürler
test ettim tam istediğim gibi -
sevgili arkadaşlar merhabalar
Sistemde yüklü servisin çalışıp çalışmadığını nasıl öğrenebilirim? -
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 -
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 -
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
İniden Veri Okuma
in AutoIT
Posted
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