Jump to content

blackman12

Emekli
  • Posts

    5349
  • Joined

  • Last visited

Posts posted by blackman12

  1. Çok kısa ve anlaşılması kolay bir fonksiyon...Lazım oldu, daha önceki bi fonksiyonumu karalayarak hazırladım şimdi, sizinle de paylaşayım dedim.

    [codebox]#include <File.au3>
    Global $silinen = 0
    _failedlnkfinder("C:\Users\BlackXP\Desktop\Yeni klasör")
    MsgBox(0,"deneme",$silinen &" kırık link başarıyla silindi.")
    func _failedlnkfinder($yol)
    if StringRight($yol,1) <> "\" Then $yol &= "\"
    if FileExists($yol) and StringInStr(FileGetAttrib($yol),"D") then
    $dosyalar = _FileListToArray($yol)
    if not @error Then
    for $i = 1 to $dosyalar[0]
    if StringInStr(FileGetAttrib($yol&$dosyalar[$i]),"D") Then
    _failedlnkfinder($yol&$dosyalar[$i])
    Elseif StringRight($dosyalar[$i],4) = ".lnk" Then
    $aDetails = FileGetShortcut($yol&$dosyalar[$i])
    if Not FileExists($aDetails[0]) Then
    $silinen += 1
    FileDelete($yol&$dosyalar[$i])
    EndIf
    EndIf
    Next
    Elseif @error = 1 Then
    MsgBox(0,"Hata!","Yol Bulunamadı.")
    Elseif @error = 2 Then
    MsgBox(0,"Hata'","Bilinmeyen filtreleme.")
    Elseif @error = 3 Then
    MsgBox(0,"Hata!","Bilinmeyen dosya dönüşü.")
    EndIf
    EndIf
    EndFunc[/codebox]
  2. [code]Global $sart, $mesaj, $emesaj
    $form = GUICreate("pencere",300,200)
    $button1 = GUICtrlCreateButton("sartı sıfırla",10,10)
    $button2 = GUICtrlCreateButton("sartı aç",10,50)
    GUISetState()

    while 1
    $msg = GUIGetMsg()
    Switch $msg
    Case -3
    Exit
    Case $button1
    $sart = 0
    Case $button2
    $sart = 1
    EndSwitch
    if $sart Then
    $mesaj = "sart tamam"
    Else
    $mesaj = "sart sağlanamadı"
    EndIf
    if $emesaj <> $mesaj Then ToolTip($mesaj)
    $emesaj = $mesaj
    WEnd[/code]
  3. şöyle bir konuya bakıyorum da konu içinde bile forum kurallarını ihlal eden var bu açık haklılığımız üzerine savunma yapmıyorum. ama "tnctr bitti, böyle yönetici mi olur be" diyen arkadaşları da "çıkış yap" butonuna davet ediyorum. Ayrıca yorgun63 seni tanıdım ben urfalı çılgın çocuk, bu kaçıncı üyeliğin sayamadı. madem bu kadar şikayetçisin bu inat neye kardeşim?
  4. [warning][color=#FF0000][b]DÝKKAT: Konu Baþlýðýný forum Kurallarýna gore yeniden düzenleyiniz. Aksi halde cope tasýnacaktýr.

    [topic=872]Forum Kurallarý[/topic] - [ Madde 10-16 ]

    Konu düzenlenene kadar yazýlan tüm iletiler silinecek, ileti yazanlar uyarý alacaktýr.[/b][/color][/warning]
  5. [codebox]<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <title>Untitled Document</title>
    <script type="text/javascript" src="http://code.jquery.com/jquery-1.5.2.min.js"></script>
    <script type="text/javascript">
    function ekle(){
    $("#kat option:selected").each(function(){
    $("#sec").append($(this).clone());
    $(this).remove();
    });
    }
    function cikar(){
    $("#sec option:selected").each(function(){
    $("#kat").append($(this).clone());
    $(this).remove();
    });
    }
    </script>
    <style type="text/css">
    #genel{width:800;background-color:#999;text-align:center;vertical-align: middle}
    #sol, #orta, #sag{float:left;padding:10px;font:bold arial 12px/20px}
    #orta {padding-top:20px;}
    </style>
    </head>

    <body>
    <div id="genel">
    <div id ="sol">
    <select name="kategoriler[]" multiple="multiple" size="5" id="kat">
    <option>Kategori 1</option>
    <option>Kategori 1</option>
    <option>Kategori 1</option>
    <option>Kategori 1</option>
    <option>Kategori 1</option>
    </select>
    </div>
    <div id="orta">
    <form action="" method="post" onsubmit="return false" >
    <input type="submit" name="kle" onClick="ekle()" value="ekle" /></br>
    <input type="submit" name="ckar" onClick="cikar()" value="cikar" />
    </form>

    </div>
    <div id="sag">
    <select name="secilenler[]" multiple="multiple" size="5" id="sec">
    <option>Kategori 1</option>
    </select>
    </div>
    </div>
    </body>
    </html>[/codebox]
  6. üzerine gelince işlem yapmak istiyorsan .class:hover ı kullanabilirsin, lakin sorunun senin hover kelimesini bulamamanla alakalı olduğunu sanmıyorum. sanırım css hakkında hiç bilgin yok, ama kusura bakma kimse de burada sana css yazamaz. ben de css i yeni öğreniyorum ve google a yazınca çatır çatır herşey çıkıyor karşıma senin google farklı google mu acaba?
  7. yok hallettim ben onun işini halletmesine de işte biz kızınca laf oluyor buyur arkadaş öğrensin şimdi olması gerekeni elin gavurundan yemiş azarı :D

    "TerribleWar,

    You appear not to have read the[b] [size="3"]Forum Rules[/size][/b] Please read them now - particularly the bit about not discussing game automation - and then you will understand why you will get no help and this thread will now be locked. [img]http://www.autoitscript.com/forum/public/style_emoticons/autoit/naughty.gif[/img]

    I have deleted the other 2 useless posts you tried to make - do not continue in that vein if you wish to remain a member of this community. ;)

    M23 "

  8. [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/")
    GUIRegisterMsg(0x0201, "moveGUI")
    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

    Func MoveGUI($hW)
    DllCall("user32.dll", "lresult", "SendMessageW", "hwnd", $hGui, "uint", 0x0112, "wparam", 0xF012, "lparam", 0)
    EndFunc
    [/code]

    örnekteki programda et kalınlığı olmadığı için şu an işe yaramıyor ama, senin programında örneğin oyun seçenekleri - çıkış butonları arasına tıklayarak pencereyi sürükleyebileceksin ;)

  9. Biraz hile hurdayla şöyle yaptım:

    [codebox]#include <GUIListBox.au3>

    $hX = 88
    $hY = 40
    $Form1 = GUICreate("Form1", 623, 442, 192, 124)
    $List1 = GUICtrlCreateList("", $hX, $hY, 185, 305)
    GUICtrlSetData(-1, "Bugün hava çok sıcak|İnsanın kendini denize atası geliyor|Selamünaleyküm")
    GUIRegisterMsg(123, "_WM_CONTEXTMENU")
    GUISetState(@SW_SHOW)

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    Func _WM_CONTEXTMENU($hwnd, $iMsg, $wParam, $lParam)
    If $wParam <> GUICtrlGetHandle($List1) Then Return $GUI_RUNDEFMSG
    Local $cursor = GUIGetCursorInfo($Form1)
    Local $index = _GUICtrlListBox_ItemFromPoint($List1, $cursor[0] - $hX - 2, $cursor[1] - $hY - 2)
    If $index == -1 Then Return 0
    _GUICtrlListBox_SetCurSel($List1, $index)
    Return $GUI_RUNDEFMSG
    EndFunc[/codebox]
  10. işte bu senin yöntemle olmaz sen numara veriyor ve bu numaraya göre sıralattırıyosun sonradan eklenen kelimenin ise id si büyük olduğundan alfabetik olarak listelenmez. ama sql ile yaparsan insert komutuyla yapabilirdin.
  11. Şimdi ilk olarak iki farklı dosya kullanman saçma olur. tek bir ini de ini yapısı şu şekilde olursa bu iş daha güzel olur:

    [1]
    E="30 Ağustos"
    T=30 Ağustos :~ 1 ) Zafer Bayramı~
    A=
    B=30 Ağustos
    .
    .
    .
    gibisinden yani not defterindeki verileri E keyi altında ini dosyasına direk ekleyebilirsin sorun olmaz. Büyük ihtimal sen bunu, arama konusunda hızlansın diye yaptın ama daha çok zorluyorsun işlemciyi.
    Ayrıca 100k lık bir sözlük yapacaksan iniden çok bir veritabanı kullanmak daha akıllıca olucaktır. O mevzu apayrı ben ini seçtiğini düşünerek sorularını yanıtlamaya devam edicem.

    aba kelimesinden sonraki 20 kelimeyi bulmak için numaralandırmana gerek yoktu. arama esnasında ini dosyanı i=1 to 100000 yapacağından $i nin e değeri aranan değere eşitse eline $i sayısı geçiyor zaten. iniread le $i den $i+20 ye kadar olan verileri çekebilirsin.
    içten arama için stringinstr soldan arama için stringleft gibi komutları kullanabilirsin bunlar sorun değil, ama seri olmasını bekleme. seri olması için aklıma bi fikir geldi ama kafan karışabilir bu yüzden sen önce programı yaz sonra serileştirirsin acele etme ;)

    abâ gibi özel karakterli içerikler için bir replace fonksiyonu yazmalısın, girilen metni arama esnasında bu fonksiyona sokmalı ve örneğin stringreplace komutuile â karakterini a karakterine çevirmelisin. örnek bir replace fonksiyonu:
    [code]http://www.tnctr.com/topic/197060-[/code]

    4. sorunu anlamadım.

×
×
  • Create New...