Mesaj Kutusunda Kopyala Yapıştır Yapabilmek.

[SAYGINER]

Merhaba Arkadaşlar.
Autoit harici birçok yöntemle katılımsız program yapabiliyorum.Autoitte yeni başladığım için çok karışık geliyor.Zamanla onuda çözeceğime eminim.
Yardımlarınızı istediğim konu örneğin bir programın lisans numarasını autoitle giremedik.Katılımsız yaptığımız program kurulduktan sonra yanında açılan bir mesaj kutusu içerisinde lisans no yazması. Fakat bu lisans noya dışarıdan müdahale edilememesi ancak kopyala yapıştır yapılabilmesi.Çünkü kopyala yapıştırla kurulan programa lisans no girmek istiyorum.
İki tane kod buldum fakat bunlardan MsgBox olana müdahale edilemiyor fakat kopyala yapıştır olmuyor.notepad ise kopyala yapıştır oluyor ama lisans no istenirse silinebiliyor.Karışık olduysa kusura bakmayın.Saygılar
Bulduğum kodlar bunlar
MsgBox(0, "Lisans No", "1234-1234-1234-1234")
ya da
Run("notepad.exe")
WinWaitActive("Adsız - Not Defteri")
Send("1234-1234-1234-1234")

[blue_life]

Tam anlayamadım ama aşağıdaki gibi bir şey mi istiyorsun?
[codebox]_BL_MSG_BOX("Lisans No", "1234-1234-1234-1234")
;Diğer kodlarına burdan devam edeceksin...



; Bunları au3 dosyasının en sonuna ekle
Func _BL_MSG_BOX($Title = "", $Text = "")
Local $GUI_MSG = GUICreate("Lisans No", 400, 150, -1, -1, BitOR(0x00040000, 0x00C00000))
Local $GUI_MSG_EDIT = GUICtrlCreateEdit($Text, 0, 0, 400, 150,0x0800)
GUICtrlSetResizing(-1, 0x0066)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW, $GUI_MSG)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
ExitLoop
EndSwitch
WEnd
GUIDelete($GUI_MSG)
EndFunc[/codebox]

[SAYGINER]

[quote name='blue_life' date='18 April 2012 - 11:09 ' timestamp='1334736592' post='1188457']
Tam anlayamadım ama aşağıdaki gibi bir şey mi istiyorsun?
[codebox]_BL_MSG_BOX("Lisans No", "1234-1234-1234-1234")
;Diğer kodlarına burdan devam edeceksin...



; Bunları au3 dosyasının en sonuna ekle
Func _BL_MSG_BOX($Title = "", $Text = "")
Local $GUI_MSG = GUICreate("Lisans No", 400, 150, -1, -1, BitOR(0x00040000, 0x00C00000))
Local $GUI_MSG_EDIT = GUICtrlCreateEdit($Text, 0, 0, 400, 150,0x0800)
GUICtrlSetResizing(-1, 0x0066)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW, $GUI_MSG)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
ExitLoop
EndSwitch
WEnd
GUIDelete($GUI_MSG)
EndFunc[/codebox]
[/quote]
Bu kodları tek başına kullanabilir miyiz?Yani winrarla katılımsız yaptığım programa sadece lisans no yu gösteren autoit scpriti ekleye bilirmiyiz?Saygılar.

İlginiz için teşekkürler.Tek başınada kullanılıyormuş.Saygılar.

Edited April 18, 2012 by SAYGINER

[SAYGINER]

[quote name='blue_life' date='18 April 2012 - 11:09 ' timestamp='1334736592' post='1188457']
Tam anlayamadım ama aşağıdaki gibi bir şey mi istiyorsun?
[codebox]_BL_MSG_BOX("Lisans No", "1234-1234-1234-1234")
;Diğer kodlarına burdan devam edeceksin...



; Bunları au3 dosyasının en sonuna ekle
Func _BL_MSG_BOX($Title = "", $Text = "")
Local $GUI_MSG = GUICreate("Lisans No", 400, 150, -1, -1, BitOR(0x00040000, 0x00C00000))
Local $GUI_MSG_EDIT = GUICtrlCreateEdit($Text, 0, 0, 400, 150,0x0800)
GUICtrlSetResizing(-1, 0x0066)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW, $GUI_MSG)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
ExitLoop
EndSwitch
WEnd
GUIDelete($GUI_MSG)
EndFunc[/codebox]
[/quote]
bu kodlara tamam butonu nasıl ekleyebilirim.Saygılar

[blue_life]

[codebox]_BL_MSG_BOX("Lisans No", "1234-1234-1234-1234")
;Diğer kodlarına burdan devam edeceksin...



; Bunları au3 dosyasının en sonuna ekle
Func _BL_MSG_BOX($Title = "", $Text = "")
Local $GUI_MSG = GUICreate("Lisans No", 300, 100, -1, -1, BitOR(0x00040000, 0x00C00000))
Local $GUI_MSG_EDIT = GUICtrlCreateEdit($Text, 0, 0, 300, 65,0x0800)
GUICtrlSetResizing(-1, 0x0066)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetColor(-1, 0x0000FF)
Local $GUI_MSG_OK = GUICtrlCreateButton("Tamam", 5, 70, 290, 25,1)
GUISetState(@SW_SHOW, $GUI_MSG)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3,$GUI_MSG_OK
ExitLoop
EndSwitch
WEnd
GUIDelete($GUI_MSG)
EndFunc[/codebox]