blackman12

[code] $deneme = InputBox("aranacak kelime","aranacak kelimeyi girin","") if @error Then Exit Else $oku = BinaryToString(InetRead("http://zamunda.net/browse.php?search="&$deneme&"&cat=0&incldead=1",1)) $linklerial = _AraGetir($oku,'<a href="download.php/','"><img src=http://img.zamunda.net/pic/download.gif') for $i = 0 to UBound($linklerial) - 1 $linklerial[$i] = 'http://zamunda.net/download.php/' & $linklerial[$i] MsgBox(0,"",$linklerial[$i]) Next EndIf func _AraGetir($text,$basla= "</strong>:",$son="</p>") Local $getirelecek if $text = "" then Return $basla = StringRegExpReplace($basla, "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1") $son = StringRegExpReplace($son, "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1") $getirelecek = StringRegExp($text, "(?s)(?i)" & $basla & "(.*?)" & $son, 3) Return $getirelecek EndFunc [/code] Çok basit şekilde bir örnek hazırladım, senin eklemen gereken şeyler: - İnternet Explorer cookiesi olmayınca download linklerini gelmez, cookieyi kendin yazdırırsın, ya da autoitle login edersin - Birden fazla sayfa varsa sayfa linkini alıp onu da inetreadle okutup linkleri almalısın - Linkin sonundaki "cat=0&incldead=1" gibi id leri checkboxlara bağlayabilirsin

Simpson_Bart; Adam haklı +1 vs. kuralları çok güzel hatırlatmışsın arkadaşa, paylaşmak istemezsen konunu raporla biz gerekli yere taşırız

Koda var autoitin içinde.

Her anahtarın belli görevleri var, ben cpl aio kullandığım zaman regshotla regedite yazdığı değerleri izledim, oradan buldum ve böyle bir program yazdım.

böyle komik şakacı tavırlar falan, hehe o gülüşünü yirdim ben senin ama işte bugün şansım yaver gitmiyo :/ neyse sen bekle burda, seni sirius alıcak canım.

[quote]aynen ya murat abi senin evinde doğalgaz yokmu ? [/quote] ilahi miraç sen adamı öldürürsün, ya gülmekteenn yaa ....

[quote]BU KONU ÇÖPE GITMEK DEMEK BENIM TNCTR DE İŞİM OLMAZ DEMEKTIR[/quote] valla mı? dur geri alim bi daha çöpe taşim.

Bu harici bir dll bu kadar bilgiyle ne işe yaradığını anlayamayız. dll nin linkini ver halledelim.

Windowsun kendi dllleri dışında dlller kullanıyorsan zaten indirdiğin yerde fonksiyonlar ve geri dönüşleri vardır. Windowsun dllleri içinse msdn kütüphanesinden istemediğin kadar bilgi ve örnek bulabilirsin. zaten dll exporter ile baktığın zaman fonksiyon adlarından çoğunun ne işe yaradığı belli oluyo.

Ya aslında benim dikkatimi çekti bu konu ama uzun zamandır işletim sistemleriyle ilgilenmediğim için çok yabancı kaldım, gokhan istersen bir pm at, bişeyler yapabiliriz belki beraber

[code]http://hotfile.com/dl/102451248/39fd3b3/Solid_Pdf_Converter_v3.1.437.0__crack.rar.html[/code]

Kullanımı çok basit bir program: [code]http://www.tnctr.com/topic/160735-solid-pdf-tools-70-build-1043/[/code]

Scriptin linkini de verseydin keşke: Firefox GreaseMonkey Eklentisi için: Unfriend Finder: http://userscripts.org/scripts/show/58852 Resmi Web Sitesi: http://www.unfriendfinder.com/download

Forumda var lenovonun yüz tanıma programı, x86 x64 ayrı ayrı olarak. arama yapsan bulucaksın.

Buraya ne zamandır bakmıyordum, tahmin ettiğim gibi ne kural kalmış ne bişi: [code]http://www.tnctr.com/topic/31065-katylymsyz-program-ystekleri-buraya/page__view__findpost__p__109588[/code] isteklerinizi buraya göre yapın! Bana ordan bi acılı çek dercesine istekte bulunamazsınız.

[code]Func _INetSmtpMailCom($s_FromName, $s_FromAddress, $s_Subject , $as_Body , $s_AttachFiles = "",$s_Importance="Normal") Local $objEmail = ObjCreate("CDO.Message") $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = "GÖNDERİLECEKADRES" 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") = "GMAİLHESABIN" $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ŞİFRESİ" $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True $objEmail.Configuration.Fields.Update Switch $s_Importance Case "Yüksek" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal" Case "Düşük" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update $objEmail.Send If @error Then Return 0 $objEmail="" EndFunc [/code]

_filewritetoline komutuyla işini halledebilirsin, ya da satır içinde bi yeri değiştirmek istiyorsan satırı okutup gerekli alana insert edebilirsin yazını.

Bunun için 2 scripte gerek yok bir scriptte, global değişkenleri kullanarak halledebilirsin durumu.

Capture programlarıyla işlemi yaptığında nerede ne değişiklik yapıldığını izlet gerisi basit zaten Autoite çok iş düşmicektir.

****Hatalı İçerik****

Şöyle bişi diyo heralde: if $cmdline[0] = 0 then msgbox(0,"al sana","z") else if $cmdline[1] = "x" then msgbox(0,"al sana","y") endif endif

İşte tam olarak ondan bahsediyorum pringles kutuları makarna süzgeçleri, tenek zeytin ve peynir kutuları bunlar cidden işe yarar şeyler bu arada

bende de benzeri bir klasör vardı şimdi denedim yaptım: Klasör Sağ Tık > Özellikler > Paylaşım > Gelişmiş Paylaşım > Bu Klasörü Paylaş tiki kaldır tamam de olay bu kadarcık

Ucuz bir edimax alıp biraz içine türklük kat 400 metreyi aşarsın rahat ol ama geçen gün verdiğim modeli alırsan ki türkiyede yok dışarıdan getirtmen gerek, 4 sinyalle girersin o wirelesse

Noldu senin mesafe artmış sanki