Kopiowanie tekstu ze schowka X.X

[Keniger]

Func Clip()
While 1
        $oldclip = "" ; Tablica ze starym schowkiem
        
        $clip = ClipGet() ; Pobiera zawartośc schowka
        
        If Not IsString($clip) Then ; Jeżeli schowek nie jest stringiem to gówno leci dalej
            Return
            
        Else
            If $clip <> $oldclip Then
                _FileWriteLog($Schowek, $clip)
                $oldclip = $clip
            EndIf
        EndIf
        WEnd
EndFunc
 

Czo ja tutaj źle zrobiłem X.X ?

[aleklejawa]

Nie dodałeś zmiennej $Schowek i include <File.au3>

[Keniger]

Nie no nie dodałem tylko tutaj mam jako argument w funkcji all jest

[Grumpy]

 

Func Clip()
While 1
        $oldclip = "" ; Tablica ze starym schowkiem
        
        $clip = ClipGet() ; Pobiera zawartośc schowka
        
        If Not IsString($clip) Then ; Jeżeli schowek nie jest stringiem to gówno leci dalej
            Return
            
        Else
            If $clip <> $oldclip Then
                _FileWriteLog($Schowek, $clip)
                $oldclip = $clip
            EndIf
        EndIf
        WEnd
EndFunc
 

Czo ja tutaj źle zrobiłem X.X ?

Tutaj? nic <fail>. No przynajmniej nic co by Ci mogło przeszkadzać, za każdym razem zmienna oldclip staje się pustym łańcuchem znaków więc clip zawsze będzie różny od oldclip, w tym przypadku kopiujesz do schowka "ala ma kota" tylko jeden raz, a w logu będzie to się wypisywało w koło...

Domyślam się że miało zapisywać jedynie zmiany, i jedynie tekst tak więc dorobiłem resztę kodu. Znajdź swój błąd gdyż kolega aleklejawa[/size] dobrze radził:

 

 

#AutoIt3Wrapper_UseUpx=n
#Include <File.au3>

Global $Schowek = FileOpen(@ScriptDir & "\Example.log", 1)

HotKeySet("{insert}","startuj")
HotKeySet("{del}","zamknij")
HotKeySet("{pause}","pauza")

Func zamknij()
    Exit
    EndFunc

Func pauza()
    while 1
        Sleep(1000)
        WEnd
    EndFunc

Func startuj()
    $oldclip = "" ; Tablica ze starym schowkiem
    while 1
        $clip = ClipGet() ; Pobiera zawartośc schowka
        If Not IsString($clip) Then ; Jeżeli schowek nie jest stringiem to gówno leci dalej
            Return
        Else
            If $clip <> $oldclip Then
                _FileWriteLog($Schowek, $clip)
                $oldclip = $clip
            EndIf
        EndIf
    WEnd
    EndFunc

While 1
    Sleep(100)
    WEnd

Insert - włącz, Delete - wyłącz, Pause - pauza