Jump to content

Clipboard Tool v1.0


NicoTn
 Share

Recommended Posts

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]
Link to comment
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

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...