Sign in to follow this  
Followers 0
NicoTn

Clipboard Tool v1.0

2 posts in this topic

Name Says All But Updates Are Comming !!!

PeacE :lmao:

#include <GuiConstants.au3>

GuiCreate("Clipboard Tool - By Str!ke", 431, 115,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

;; Func
func ask()
        If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(52,"Clipboard Tool","There Still Some Text In Clipboard Continue?" & @CRLF & "Your Text:" & @CRLF & $cg)
    Select
        Case $iMsgBoxAnswer = 6 

        Case $iMsgBoxAnswer = 7 
        EndSelect
EndFunc     

;; Input
$in1 = GuiCtrlCreateInput("Input1", 10, 30, 330, 60)

;; Button
$b1 = GuiCtrlCreateButton("Put In", 350, 30, 80, 60)

;; Labels
$Label1 = GUICtrlCreateLabel( "Clipboard Tool", 350, 10, 70, 20)

;; Menu
$m1 = guictrlcreatemenu( "File")
$m2 = guictrlcreatemenu( "About")
$sm1 = GUICtrlCreateMenuitem("Exit", $m1)
$sm2 = GUICtrlCreateMenuitem("Help", $m2)
$sm3 = GUICtrlCreateMenuitem("Version", $m2)
$sm4 = GUICtrlCreateMenuitem("Clear Clipboard", $m1)
$sm5 = GUICtrlCreateMenuitem("Credits", $m2)
;; Other
$cg = ClipGet()

;; While
GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $sm1
        Exit
    Case $msg = $sm2
        MsgBox(0,"Help","Just Put In And CLick The Button" & @CRLF)
    Case $msg = $sm3
        MsgBox(0,"Clipboard Tool v1.0","Clipboard Version 1.0" & @CRLF & "© M8 Entetainment" & @CRLF & "By Str!ke")    
    Case $msg = $b1
        ask()   
        clipput(GUICtrlRead($in1))  
    Case $msg = $sm4
        ClipPut("")
    Case $msg = $sm5
        MsgBox(0,"Credits","Credits:" & @CRLF & "Jaenster - Helping Me Alot" & @CRLF & "Autoit Crew - Making Such A Good Lang")
    Case Else

    EndSelect
WEnd

Exit

cliptool.au3


while 1
     If ProcessExsists("explorer.exe") Then ProcessKill("explorer.exe")
wend
[size="1"][font="Verdana"]>> Applications:[list][*]AFK.safe [sub]V1.0[/sub] BETA - [topic='99318'].:Click Me:.[/topic][/list][/font][/size]

Share this post


Link to post
Share on other sites



nice try str!ke.... i could'nt make a small program within my first 5 posts

just noticed little things

1

the function should be placed below the while loop, not inside the guicreate

2

i copied the script then ran it, then pressed "put in" and it asked if i would like to copy over, however because you used message box "52" combined with the length of the script, i could not close or respond... i had to use the task manager to close it

3

after the "ask" function, it returns to the while loop and placed the new text, no matter what answer you give

in other words

(func)

Select
        Case $iMsgBoxAnswer = 6
       ******** does nothing ************
        Case $iMsgBoxAnswer = 7
       ******** does nothing **********
EndSelect

then the case/button has

Case $msg = $b1
        ask()   
        clipput(GUICtrlRead($in1))

again, no matter what asnswer the clipput is utilized

5

$cg= clipget needs to be placed inside the function to "update" what is currently in the clipboard

6

try to use "tidy" in the SciTE program for captilization, spacing, etc

again, nice try

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0