Jump to content
Son zamanlarda artan kullanıcı hesap hırsızlıkları sebebiyle tüm kullanıcılara şifre sıfırlama maili gönderilmiştir. Lütfen güveli şifreler seçiniz. Mevcut e-mail adresinize erişemiyorsanız, en aşağıdaki destek linkinden bize ulaşınız. ×

TnC ÇokluKopyala 1.02


sk8er_boi
 Share

Recommended Posts

  • 4 ay sonra...
  • Replies 95
  • Created
  • Last Reply

Top Posters In This Topic

Abi program Kubuntu 10.04 te açılıyor. Fakat işlemleri olmuyor. Yani yapıştırma yapmıyor. Bunu nasıl çalışabilir hale getirebiliriz.

Kayıtları regedit değilde yanındaki bi dosyaya yazdırsak olurmu?

Link to comment
Share on other sites

olur... kodlarda biraz düzenleme yapman yeterli.bir ini dosyasına yazıp oradan okutabilirsin.

2 saat bununla uğraştım ama sonuç hüsran. Sorun regeditte değil. Winehq programı ile veriler regeditten okunup tabloya yazılıyor ama ctrl+ herhangi bir tuşa bastığımda işlemiyor. Sanırım linux komutu kendine alıyor. Aynı işlevi yapan bir linux programı lazım...

Teşekkürler

Link to comment
Share on other sites

Bende autoıt programı yüklü .au3 kaynak kodu olan dosyayı indirip çalıştırmak istedim hata verdi.

normalde au3 dosyalarını exe yapmadanda kullanbiliyoruz. neden indirdiğim kaynak kod dosyası hata verdi çalışmadı

anlamadım

Yazı yazılan satırları genişletmek istiyoum.

Kaynak kodunda hata varmı.

Edited by kamuran731
Link to comment
Share on other sites

#include <GUIConstants.au3>

Opt("GUICoordMode", 1)
Opt ("MustDeclareVars", 1)
Opt("GUIOnEventMode", 1)

Opt("TrayMenuMode",1)
Opt("TrayIconHide", 1)

Dim $msg, $ret
Dim $listbox, $label,$button1, $i,$text[10],$l,$Form1,$MenuItem1,$lbl[10],$set1,$Checkbox1,$st
HotKeySet("^1", "paste1")
HotKeySet("^2", "paste2")
HotKeySet("^3", "paste3")
HotKeySet("^4", "paste4")
HotKeySet("^5", "paste5")
HotKeySet("^6", "paste6")
HotKeySet("^7", "paste7")
HotKeySet("^8", "paste8")
HotKeySet("^9", "paste9")
HotKeySet("^0", "paste10")

Func paste1()

ClipPut(GUICtrlRead($text[0]))
send("^v")
EndFunc

Func paste2()
ClipPut(GUICtrlRead($text[1]))
send("^v")
EndFunc

Func paste3()
ClipPut(GUICtrlRead($text[2]))
send("^v")
EndFunc

Func paste4()
ClipPut(GUICtrlRead($text[3]))
send("^v")
EndFunc

Func paste5()
ClipPut(GUICtrlRead($text[4]))
send("^v")
EndFunc
Func paste6()
ClipPut(GUICtrlRead($text[5]))
send("^v")
EndFunc
Func paste7()
ClipPut(GUICtrlRead($text[6]))
send("^v")
EndFunc
Func paste8()
ClipPut(GUICtrlRead($text[7]))
send("^v")
EndFunc
Func paste9()
ClipPut(GUICtrlRead($text[8]))
send("^v")
EndFunc
Func paste10()
ClipPut(GUICtrlRead($text[9]))
send("^v")
EndFunc

FileInstall("cuc.ico",@TempDir & "\cuc.ico")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Tnc ÇokluKopyala 1.02", 250, 240, 193, 115)
GUISetIcon(@TempDir &"\cuc.ico")
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "AForm1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "AForm1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "AForm1Restore")
$Button1 = GUICtrlCreateButton("(Not allowed)", 180, 16, 41, 44, 0x0040)
$st=0
GUICtrlSetImage($Button1, @TempDir & "\cuc.ico")
GUICtrlSetOnEvent(-1, "AButton1Click")
$Checkbox1 = GUICtrlCreateCheckbox("Her Zaman Üstte", 145, 0, 105, 17)
GUICtrlSetOnEvent(-1, "hepust")
GUICtrlSetState ( $Checkbox1, $GUI_UNCHECKED )
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
for $i = 0 to 9
$l=$l+20
$lbl[$i]=GUICtrlCreateLabel("CTRL+" & $i+1,0,$l,100,20)
if $i=9 then $lbl[9] = GUICtrlCreatelabel("CTRL+0" ,0,$l,100,20)
if  RegRead("HKEY_CURRENT_USER\Software\sk8er_boi", "key" & $i)="" then
    $text[$i] = GUICtrlCreateInput("CTRL+" & $i+1 ,20,$l,100,20)
    if $i=9 then $text[9] = GUICtrlCreateInput("CTRL+0" ,20,$l,100,20)

else
    $text[$i] = GUICtrlCreateInput(RegRead("HKEY_CURRENT_USER\Software\sk8er_boi", "key" & $i),50,$l,100,20)
    EndIf
next


While 1
    $set1=TrayGetMsg()
    if $set1=-13 Then
        GUISetState (@SW_SHOW)
        Opt("TrayIconHide", 1)
        endIf
Sleep(100)
WEnd

Func AButton1Click()
msgbox (64,"TnC ÇokluKopyala","Alanlara yandaki tuş kombinasyonlarına basılınca yapıştırılmasını istediğiniz metni giriniz" & @CRLF & "Programı Kapatırsanız tuş fonksiyonları çalışmayacaktır. Ayrıca programı kapatınca önceki metinler geri gelecektir" & @CRLF & @CRLF & "www.tnctr.com - sk8er_boi")
EndFunc
Func AForm1Close()
        for $i = 0 to 9
RegWrite("HKEY_CURRENT_USER\Software\sk8er_boi", "key" & $i,"REG_SZ",GUICtrlRead($text[$i]))

Next
exit
EndFunc
Func AForm1Maximize()

EndFunc
Func AForm1Minimize()
GUISetState(@SW_HIDE)
Opt("TrayIconHide", 0)
TraySetIcon(@TempDir & "\cuc.ico")

EndFunc
Func AForm1Restore()

EndFunc
func hepust()
if GUICtrlRead($Checkbox1)=$GUI_CHECKED then
    WinSetOnTop ("Tnc ÇokluKopyala 1.02", "Her Zaman Üstte", 1)
    else
    WinSetOnTop("Tnc ÇokluKopyala 1.02", "Her Zaman Üstte", 0)
    EndIf
endFunc[/CODE]

Link to comment
Share on other sites

Bir şey dikkatimi çekti

Programı kullandıktan sonra, sağ tıklayınca çıkması gereken normal menü yenile v.s çıkmıyor.

bir dosyanın üzerinde sağ tıklanınca cıkan menü çıkıyor.

ctrl+alt+del ile görev yöneticisini açıp kapatınca herşey normale dönüyor.

Bu bir hatamı yoksa sadece bendemi böyle oluyor. hataysa düzeltebilen varsa iyi olur

Link to comment
Share on other sites

  • 4 hafta sonra ...
  • 1 yıl yıl...

Programı düzenledim [b]Text[/b] yerine [b]EditText[/b] ekledim
program çok güzel oldu.

Yapmak istediğim şey mause ile CTRL+2 labeline tıkladığımda
EditText2 görünsün
EditText3 görünsün

[img]http://b1109.hizliresim.com/11/9/27/15647.png[/img]

Edited by kamuran731
Link to comment
Share on other sites

  • 1 yıl yıl...

Bu programı düzenledim; çok uğraştım ama güzel oldu.

programın yapıştırma özelliği olduğu gibi kopyalama özelliğide var. 9 ayrı hafızası var

 

Başta konuyu açan 

sk8er_boi hocamız olmak üzere diğer yetkililerin de izni olursa eğer

Program-Appz bölümünde Yazı kopyala yapıştır ismi ile paylaşmayı düşünüyorum

[URL=http://www.tnctr.com/uploads/imgs/pre_1371155402__yaz_kopyalama-2.png]pre_1371155402__yaz_kopyalama-2.png[/URL]

Edited by kamuran731
Link to comment
Share on other sites

  • 10 ay sonra...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.


×
×
  • Create New...