Jump to content

blackman12

Emekli
  • Posts

    5349
  • Joined

  • Last visited

Posts posted by blackman12

  1. Func _INetSmtpMailCom($s_FromName, $s_FromAddress,$s_ToAddress, $s_Subject , $as_Body , $s_AttachFiles = "",$s_Importance="Normal")
        Local $objEmail = ObjCreate("CDO.Message")
        $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
        $objEmail.To = $s_ToAddress
        Local $i_Error = 0
        Local $i_Error_desciption = ""
        $objEmail.Subject = $s_Subject
        If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
            $objEmail.HTMLBody = $as_Body
        Else
            $objEmail.Textbody = $as_Body & @CRLF &@CRLF &$s_FromAddress
        EndIf
    	If $s_AttachFiles <> "" Then
            Local $S_Files2Attach = StringSplit($s_AttachFiles, "|")
    		For $x = 1 To $S_Files2Attach[0]
              $objEmail.AddAttachment($S_Files2Attach[$x])
    		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") = "smtp.gmail.com"
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    	$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "BURAYA ÜZERİNDEN MAİL GÖNDERİLECEK GMAİL ADRESİ"
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "BURAYA ONUN ŞİFRESİ"
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        $objEmail.Configuration.Fields.Update
    	;$s_Importance: High, Low, Normal değerlerini alır.
    	$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = $s_Importance
        EndSwitch
        $objEmail.Fields.Update
        $objEmail.Send
        If @error Then Return 0
        $objEmail=""
    EndFunc
    
  2. Merhaba arkadaşlar uzun zamandır konu açmıyordum foruma. Artık bir makine mühendisliği mezunuyum ve yazılımla olan haşır neşirliğim de son aylarda pek iyi durumda değil. Fakat yine de geçen günlerde merakıma yenik düştüm ve image comparerların çalışma mantığını merak ettim. Buna göre resim karşılaştırıcılar 5 farklı yöntemle çalışıyormuş bunlardan 2 si nokta bazlı 2 si alan bazlı 1i ise histogram bazlı olarak çalışıyor. Bende bunlardan biriyle çalışan bir algoritma yazmak istedim ve yazdım. Bunu sizinle de paylaşmak asıl hedefim.

     

    Fakat öyle zönk diye algoritmayı koysam büyük ihtimalle arkadaşlar bir örnek uygulama isteyecektir diye 30 dk da bir de arayüz yazdım algoritmaya. Bu yüzden arayüz kodlarını önemsemeyin yalapşap yapılmış bir arayüz. Algoritmayı kullanarak daha güzel bir arayüz yazmanız dileklerimle...

     

    https://www.mediafire.com/?fin28oqjfedrtp5

  3. iyi de verdiğin phyton örneğindeki veri bu şekilde.

    • sonuc = postfile.post_multipart(host, sec, fields, dosya)

    bu satırdaki fonksiyonun içeriğini incele derim.

     

    Şu an resmen farazi olarak konuşuyoruz hangi upload sitesi bilmiyoruz, ne yapmaya çalışıyoruz bilmiyoruz upload sitesini bilsek belki daha kısayolunu biliyorumdur :D

     

    ilgili fonksiyona da baktım ben bu arada:

     

    https://github.com/gialloporpora/ViRusTotalCL/blob/master/postfile.py

     

    bence şu an içerikle ilgili ufak bir sorunun var. upload etmeye çalıştığın siteyi buraya yaz, deneyerek çözebilelim.

     

    Mesela verdiğin resimde APIKey gorunmuyor, bu sebepten upload olmuyor olabilir.

  4. Okumaya çalıştığı exeyi yukarıda koymuş canım ama örnekte verilen "rb" modundaki r read, b ise binary demek yani fileopen ı 16 parametresiyle kullanacaksın sana söylediğim gibi.

     

    Edit:

     

    Yani buranın autoit karşılığı

     

    dosya_to_send = open("test.txt", "rb").read()

     

    $a = FileOpen("test.txt",16)

    $dosya_to_send = FileRead($a)

    FileClose($a)

     

    dır.

     

    Edit 2:

     

    Phyton File Open için Mode açıklamaları kısa ve öz:

    https://www.inkling.com/read/learning-python-mark-lutz-4th/chapter-36/using-text-and-binary-files

  5. Mehmet:

    #include <Array.au3>
    $Form1 = GUICreate("Form1", 404, 314)
    $Button1 = GUICtrlCreateButton("Button1", 40, 72, 67, 33)
    $Edit1 = GUICtrlCreateEdit("", 136, 24, 225, 217)
    GUISetState(@SW_SHOW)
    
    While 1
    	$nMsg = GUIGetMsg()
    	Switch $nMsg
    		Case -3
    			Exit
    		Case $Button1
    			$i = 1
    			do
    				$sINetCode = InetRead("http://www.atasozleri.gen.tr/atasozleri-sozlugu/a/page/"&$i&"/", 9)
    				if @error Then ExitLoop
    				$avArray = StringRegExp(_Turkcelestir(BinaryToString($sINetCode)), '(?i)<h2><a\h+href="http:\/\/.*\/"\h+title="(.*)">', 3)
    				GUICtrlSetData($Edit1,GUICtrlRead($Edit1) & @CRLF & _ArrayToString($avArray,@CRLF))
    				$i += 1
    			until 1=2
    	EndSwitch
    WEnd
    
    Func _Turkcelestir($m)
    	$m = StringReplace($m, "Â", "")
    	$m = StringReplace($m, "&#39;", "'")
    	$m = StringReplace($m, "&#146;", "’")
    	$m = StringReplace($m, "&#194;", "'")
    	$m = StringReplace($m, "&nbsp;", " ")
    	$m = StringReplace($m, "&quot;", '"')
    	$m = StringReplace($m, "&lt;", "<")
    	$m = StringReplace($m, "&gt;", ">")
    	$m = StringReplace($m, Chr(9), @TAB)
    	$m = StringReplace($m, Chr(10), @LF)
    	$m = StringReplace($m, Chr(13), @CR)
    	$m = StringReplace($m, "<![CDATA[", "")
    	$m = StringReplace($m, "]]>", "")
    	$m = StringReplace($m, "Ç", "Ç")
    	$m = StringReplace($m, "Ö", "Ö")
    	$m = StringReplace($m, "Ãœ", "Ü")
    	$m = StringReplace($m, "ÅŸ", "ş")
    	$m = StringReplace($m, "Å(.?)", "Ş")
    	$m = StringRegExpReplace($m, "(Ä°)|(&#304;)", "İ")
    	$m = StringRegExpReplace($m, "(ı)|(&#305;)", "ı")
    	$m = StringRegExpReplace($m, "(ÄŸ)|(&#287;)", "ğ")
    	$m = StringRegExpReplace($m, "(ÅŸ)|(&#351;)", "ş")
    	$m = StringRegExpReplace($m, "(ö)|(&ouml;)", "ö")
    	$m = StringRegExpReplace($m, "(&ccedil;)|(ç)", "ç")
    	$m = StringRegExpReplace($m, "(&uuml;)|(ü)", "ü")
    	$m = StringRegExpReplace($m, "(Ä(.?))|(&#286;)", "Ğ")
    	$karakter = StringRegExp($m, "&#(.*?);", 3)
    	For $t = 0 To UBound($karakter) - 1
    		if $karakter[$t] <> "" then $m = StringReplace($m, "&#" & $karakter[$t] & ";", Chr(Number($karakter[$t])))
    	Next
    	$m = StringReplace($m, "€™", "’")
    	$m = StringReplace($m, "€œ", "“")
    	$m = StringReplace($m, "€", "”")
    	$m = StringReplace($m, "Å", "Ş")
    	$m = StringStripWS($m, 4)
    	Return $m
    EndFunc   ;==>_Turkcelestir
    
  6. Daha önce denemedim dosya upload etmeyi API desteği veren site açıklamasını da yapar hangi formatta yollaman gerektiğine dair diye düşünüyorum. Ayrıca msgbox ile deneyerek filereadin başarılı mı başarısız mı olduğuna bakmak yerine aldığın değeri yeni bir dosyaya yazdır ve uzantısını exe yapıp çalıştırmayı dene. Daha mantıklı olur ayrıca @extended ile okuduğu byte ı da console a yazdırırsan bu da bi sağlama yapmana yarar.

×
×
  • Create New...