Link do buttona

jogi997 · 21 Września 2012

Dobra link ogarnąłem, ale teraz jest sprawa ze gdy kliknę button 2 ma mi wyskoczyć okienko z tekstem który ja wpiszę w kodzie, i będzie mozna ten tekst skopiować.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\kuba\Documents\Form1.kxf
$Form1 = GUICreate("CFG", 163, 245, 431, 260)
GUISetFont(15, 400, 0, "Times New Roman")
GUISetBkColor(0x99B4D1)
$Button1 = GUICtrlCreateButton("Subscribe", 24, 40, 115, 57)
$Button2 = GUICtrlCreateButton("Config", 24, 104, 115, 57)
$Button3 = GUICtrlCreateButton("Userconfig", 24, 168, 115, 57)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit
 Case $Button1
 ShellExecute("www.wp.pl")
 MsgBox(0,"","Thanks, now coppy cfg.")
 Case $Button2

EndSwitch
WEnd

adoksz · 21 Września 2012

GUICtrlCreateEdit

albo

GUICtrlCreateInput

o to chodzi?

jogi997 · 21 Września 2012

Nie,nie o to mi biega.

Chodzi mi ot ot że wciskam button2

I wyskakuje mi okienko w którym jest mój tekst(dodany w kodzie).

I mogę to skopiować.

Bo w msgboxie itp. nie można kopiować bo jest to komunikat.

Loude · 21 Września 2012

Masz, chyba o to ci chodziło


#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("CFG", 164, 290, 431, 260)
GUISetFont(15, 400, 0, "Times New Roman")
GUISetBkColor(0x99B4D1)
$Button1 = GUICtrlCreateButton("Subscribe", 24, 40, 115, 57)
$Button2 = GUICtrlCreateButton("Config", 24, 104, 115, 57)
$Button3 = GUICtrlCreateButton("Userconfig", 24, 168, 115, 57)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit
 Case $Button1
 ShellExecute("www.wp.pl")
 MsgBox(0,"","Thanks, now coppy cfg.")
 Case $Button2
$read = "Wpisany Tekst"
MsgBox(0, "test", "Wynik: "&$read)
EndSwitch
WEnd

jogi997 · 21 Września 2012

To sam umiem zrobić

I jest dobrze ale jeszcze żeby dało się skopiować ten tekst w okienku.

GameOverMan · 21 Września 2012

Może coś na ten styl:

#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Close = 0

#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("CFG", 164, 290, 431, 260)
GUISetFont(15, 400, 0, "Times New Roman")
GUISetBkColor(0x99B4D1)
$Button1 = GUICtrlCreateButton("Subscribe", 24, 40, 115, 57)
$Button2 = GUICtrlCreateButton("Config", 24, 104, 115, 57)
$Button3 = GUICtrlCreateButton("Userconfig", 24, 168, 115, 57)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
   Case $GUI_EVENT_CLOSE
       If $Close = 1 Then
           GUIDelete($Form2)
           $Close = 0
       Else
           Exit
       EndIf
 Case $Button1
  ShellExecute("www.wp.pl")
  MsgBox(0,"","Thanks, now coppy cfg.")
 Case $Button2
   $Close = 1
  $read = "Wpisany Tekst"
  $Form2 = GUICreate("Tekst", 330, 170, 192, 124)
  $Edit1 = GUICtrlCreateEdit("Wynik: " & $read, 16, 16, 297, 137)
  GUISetState(@SW_SHOW)
EndSwitch
WEnd

jogi997 · 21 Września 2012

Dzięki!

A to dałoby rade wkleić?

bind "TAB" "+showscores"
bind "ENTER" "+attack"
bind "ESCAPE" "cancelselect"
bind "SPACE" "+jump"
bind "*" "cl_crosshair_size medium; cl_dynamiccrosshair 0"
bind "," "buyammo1"
bind "." "buyammo2"
bind "/" "sv_restart 1"
bind "0" "slot10;vest;vesthelm"
bind "1" "slot1"
bind "2" "slot2"
bind "3" "slot3"
bind "4" "slot4"
bind "5" "slot5"
bind "6" "slot6"
bind "7" "slot7"
bind "8" "slot8"
bind "9" "slot9"
bind ";" "+d"
bind "[" "cl_dynamiccrosshair 1"
bind "]" "cl_dynamiccrosshair 0"
bind "`" "toggleconsole"
bind "a" "+moveleft"
bind "b" "buy"
bind "c" "radio3"
bind "d" "+moveright"
bind "e" "+ninja"
bind "g" "drop"
bind "h" "+commandmenu"
bind "l" "long"
bind "m" "chooseteam"
bind "n" "messagemode record"
bind "o" "messagemode name"
bind "p" "rcon sv_restart 1"
bind "q" "lastinv"
bind "r" "+reload"
bind "s" "+back"
bind "u" "messagemode2"
bind "v" "retry"
bind "w" "+forward"
bind "y" "messagemode"
bind "~" "toggleconsole"
bind "UPARROW" "+forward"
bind "DOWNARROW" "+back"
bind "CTRL" "+duck"
bind "SHIFT" "+speed"
bind "F1" "autobuy"
bind "F2" "awp;buyammo1;buyammo1;vesthelm"
bind "F3" "usp"
bind "F4" "deagle"
bind "F5" "m4a1;ak47"
bind "F6" "awp"
bind "F7" "scout"
bind "F8" "g3sg1;vesthelm;primammo"
bind "KP_LEFTARROW" "buyammo1"
bind "KP_5" "vest;vesthelm"
bind "KP_RIGHTARROW" "buyammo2"
bind "KP_END" "hegren"
bind "KP_DOWNARROW" "flash"
bind "KP_PGDN" "sgren"
bind "KP_ENTER" "defuser"
bind "KP_SLASH" "cl_crosshair_size small;dynamiccrosshair 1"
bind "KP_MINUS" "cl_crosshair_size large; cl_dynamiccrosshair 0"
bind "MWHEELDOWN" "+jump"
bind "MWHEELUP" "+duck"
bind "MOUSE1" "+attack"
bind "MOUSE2" "+attack2"
_cl_autowepswitch "1"
_snd_mixahead "0.1"
ati_npatch "1.0"
ati_subdiv "2.0"
bgmvolume "1.000000"
bottomcolor "6"
brightness "2"
cl_allowdownload "1"
cl_allowupload "1"
cl_backspeed "400"
cl_cmdbackup "2"
cl_cmdrate "101"
cl_corpsestay "600.000000"
cl_crosshair_color "0 250 0"
cl_crosshair_size "large"
cl_crosshair_translucent "1"
cl_dlmax "128"
cl_download_ingame "1"
cl_dynamiccrosshair "0"
cl_forwardspeed "400"
cl_himodels "0"
cl_idealpitchscale "0.8"
cl_lc "1"
cl_logocolor "#Valve_Orange"
cl_logofile "lambda"
cl_lw "1"
cl_minmodels "0"
cl_radartype "0"
cl_righthand "1"
cl_shadows "1"
cl_timeout "300"
cl_updaterate "101"
cl_vsmoothing "0.05"
cl_weather "0"
con_color "0 175 255"
console "1.000000"
crosshair "1.000000"
fastsprites "0"
fps_max "101.000000"
fps_modem "0.0"
gamma "3"
gl_dither "1"
gl_flipmatrix "0"
gl_fog "1"
gl_monolights "0"
gl_overbright "0"
gl_polyoffset "0.1"
hisound "1"
hpk_maxsize "0.001"
hud_capturemouse "1"
hud_centerid "1"
hud_draw "1"
hud_fastswitch "1"
hud_saytext_internal "1"
hud_takesshots "0"
joystick "0"
lookspring "0.000000"
lookstrafe "0.000000"
m_filter "0"
m_forward "1"
m_pitch "0.022"
m_side "0.8"
m_yaw "0.022"
model "gordon"
MP3FadeTime "2.0"
MP3Volume "0.800000"
mp_decals "300.000000"
name "Jack FANS@gusguy7 "
net_graph "0"
net_graphpos "1"
net_scale "5"
r_bmodelhighfrac "5.0"
r_detailtextures "0"
s_a3d "0.0"
s_automax_distance "30.0"
s_automin_distance "2.0"
s_bloat "2.0"
s_distance "18"
s_doppler "0.0"
s_eax "0.0"
s_leafnum "0"
s_max_distance "1000.0"
s_min_distance "8.0"
s_numpolys "200"
s_polykeep "1000000000"
s_polysize "10000000"
s_refdelay "4"
s_refgain "0.34"
s_rolloff "1.0"
s_verbwet "0.15"
sensitivity "3.5"
skin ""
spec_autodirector_internal "0"
spec_drawcone_internal "1"
spec_drawnames_internal "1"
spec_drawstatus_internal "1"
spec_mode_internal "2"
spec_pip "0"
suitvolume "0.250000"
sv_aim "0"
sv_voiceenable "1"
team ""
topcolor "30"
viewsize "110"
voice_enable "1"
voice_forcemicrecord "1"
voice_modenable "1"
voice_scale "0.750000"
volume "0.1"
setinfo "_vgui_menus" "0"
+mlook
+jlook
exec userconfig.cfg

Loude · 21 Września 2012

Hmm, ja bym to zrobił tak:


 Case $Button2
  $read = "Wpisany Tekst"
  InputBox("Pierdolnik", "Wynik: ", ""&$read)

Mniej kodu

Phoenix_PL · 21 Września 2012

btw; możesz zapisać wszystko do pliku i kazać programowi to odczytać (a w razie potrzeby FileInstall pliku do programu i kompilacja), a potem wyświetlić all w edicie/inputboxie

jogi997 · 22 Września 2012

Phoenix myślałem o tym, ale zalezy mi aby był to jeden plik

EDIT:// FileInstall sprawdzę

Loude · 22 Września 2012

Dzięki!

A to dałoby rade wkleić?

bind "TAB" "+showscores"
bind "ENTER" "+attack"
bind "ESCAPE" "cancelselect"
bind "SPACE" "+jump"
bind "*" "cl_crosshair_size medium; cl_dynamiccrosshair 0"
bind "," "buyammo1"
bind "." "buyammo2"
bind "/" "sv_restart 1"
bind "0" "slot10;vest;vesthelm"
bind "1" "slot1"
bind "2" "slot2"
bind "3" "slot3"
bind "4" "slot4"
bind "5" "slot5"
bind "6" "slot6"
bind "7" "slot7"
bind "8" "slot8"
bind "9" "slot9"
bind ";" "+d"
bind "[" "cl_dynamiccrosshair 1"
bind "]" "cl_dynamiccrosshair 0"
bind "`" "toggleconsole"
bind "a" "+moveleft"
bind "b" "buy"
bind "c" "radio3"
bind "d" "+moveright"
bind "e" "+ninja"
bind "g" "drop"
bind "h" "+commandmenu"
bind "l" "long"
bind "m" "chooseteam"
bind "n" "messagemode record"
bind "o" "messagemode name"
bind "p" "rcon sv_restart 1"
bind "q" "lastinv"
bind "r" "+reload"
bind "s" "+back"
bind "u" "messagemode2"
bind "v" "retry"
bind "w" "+forward"
bind "y" "messagemode"
bind "~" "toggleconsole"
bind "UPARROW" "+forward"
bind "DOWNARROW" "+back"
bind "CTRL" "+duck"
bind "SHIFT" "+speed"
bind "F1" "autobuy"
bind "F2" "awp;buyammo1;buyammo1;vesthelm"
bind "F3" "usp"
bind "F4" "deagle"
bind "F5" "m4a1;ak47"
bind "F6" "awp"
bind "F7" "scout"
bind "F8" "g3sg1;vesthelm;primammo"
bind "KP_LEFTARROW" "buyammo1"
bind "KP_5" "vest;vesthelm"
bind "KP_RIGHTARROW" "buyammo2"
bind "KP_END" "hegren"
bind "KP_DOWNARROW" "flash"
bind "KP_PGDN" "sgren"
bind "KP_ENTER" "defuser"
bind "KP_SLASH" "cl_crosshair_size small;dynamiccrosshair 1"
bind "KP_MINUS" "cl_crosshair_size large; cl_dynamiccrosshair 0"
bind "MWHEELDOWN" "+jump"
bind "MWHEELUP" "+duck"
bind "MOUSE1" "+attack"
bind "MOUSE2" "+attack2"
_cl_autowepswitch "1"
_snd_mixahead "0.1"
ati_npatch "1.0"
ati_subdiv "2.0"
bgmvolume "1.000000"
bottomcolor "6"
brightness "2"
cl_allowdownload "1"
cl_allowupload "1"
cl_backspeed "400"
cl_cmdbackup "2"
cl_cmdrate "101"
cl_corpsestay "600.000000"
cl_crosshair_color "0 250 0"
cl_crosshair_size "large"
cl_crosshair_translucent "1"
cl_dlmax "128"
cl_download_ingame "1"
cl_dynamiccrosshair "0"
cl_forwardspeed "400"
cl_himodels "0"
cl_idealpitchscale "0.8"
cl_lc "1"
cl_logocolor "#Valve_Orange"
cl_logofile "lambda"
cl_lw "1"
cl_minmodels "0"
cl_radartype "0"
cl_righthand "1"
cl_shadows "1"
cl_timeout "300"
cl_updaterate "101"
cl_vsmoothing "0.05"
cl_weather "0"
con_color "0 175 255"
console "1.000000"
crosshair "1.000000"
fastsprites "0"
fps_max "101.000000"
fps_modem "0.0"
gamma "3"
gl_dither "1"
gl_flipmatrix "0"
gl_fog "1"
gl_monolights "0"
gl_overbright "0"
gl_polyoffset "0.1"
hisound "1"
hpk_maxsize "0.001"
hud_capturemouse "1"
hud_centerid "1"
hud_draw "1"
hud_fastswitch "1"
hud_saytext_internal "1"
hud_takesshots "0"
joystick "0"
lookspring "0.000000"
lookstrafe "0.000000"
m_filter "0"
m_forward "1"
m_pitch "0.022"
m_side "0.8"
m_yaw "0.022"
model "gordon"
MP3FadeTime "2.0"
MP3Volume "0.800000"
mp_decals "300.000000"
name "Jack FANS@gusguy7 "
net_graph "0"
net_graphpos "1"
net_scale "5"
r_bmodelhighfrac "5.0"
r_detailtextures "0"
s_a3d "0.0"
s_automax_distance "30.0"
s_automin_distance "2.0"
s_bloat "2.0"
s_distance "18"
s_doppler "0.0"
s_eax "0.0"
s_leafnum "0"
s_max_distance "1000.0"
s_min_distance "8.0"
s_numpolys "200"
s_polykeep "1000000000"
s_polysize "10000000"
s_refdelay "4"
s_refgain "0.34"
s_rolloff "1.0"
s_verbwet "0.15"
sensitivity "3.5"
skin ""
spec_autodirector_internal "0"
spec_drawcone_internal "1"
spec_drawnames_internal "1"
spec_drawstatus_internal "1"
spec_mode_internal "2"
spec_pip "0"
suitvolume "0.250000"
sv_aim "0"
sv_voiceenable "1"
team ""
topcolor "30"
viewsize "110"
voice_enable "1"
voice_forcemicrecord "1"
voice_modenable "1"
voice_scale "0.750000"
volume "0.1"
setinfo "_vgui_menus" "0"
+mlook
+jlook
exec userconfig.cfg

Wkleić? Ale w jakim sensie? Ma się wyświetlać po wciśnięciu Button3?

jogi997 · 22 Września 2012

po wciśnięciu button 2

GameOverMan · 22 Września 2012

Czyli tak:

#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Close = 0
#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("CFG", 164, 290, 431, 260)
GUISetFont(15, 400, 0, "Times New Roman")
GUISetBkColor(0x99B4D1)
$Button1 = GUICtrlCreateButton("Subscribe", 24, 40, 115, 57)
$Button2 = GUICtrlCreateButton("Config", 24, 104, 115, 57)
$Button3 = GUICtrlCreateButton("Userconfig", 24, 168, 115, 57)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
		 If $Close = 1 Then
				 GUIDelete($Form2)
				 $Close = 0
		 Else
				 Exit
		 EndIf
Case $Button1
ShellExecute("www.wp.pl")
MsgBox(0,"","Thanks, now coppy cfg.")
Case $Button2
 $Close = 1
$Form2 = GUICreate("Tekst", 330, 170, 192, 124)
$Edit1 = GUICtrlCreateEdit("Wynik: " & FileRead("config.txt"), 16, 16, 297, 137)
GUISetState(@SW_SHOW)
EndSwitch
WEnd

Musisz utworzyć plik o nazwie "config" i rozszerzeniu ".txt", napisz w nim to co chcesz mieć i umieść go w tym samym folderze co skrypt.

Jeżeli chcesz mieć wszystko w programie to przy pomocy FileInstall możesz dodać plik do .exe programu.

jogi997 · 22 Września 2012

Dobra sam już zrobiłem co miałem zrobić ale jest kolejny problem.

Pod okna gui mogę zamknąć, ale głowne tylko w procesach.

I jeszcze jedno.

Chciałbym żeby funkcje button 2 i 3 były dostępne dopiero po kliknięciu w button 1

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\kuba\Documents\Form1.kxf
$Form1 = GUICreate("by Jack", 163, 245, 431, 260)
GUISetFont(15, 400, 0, "Times New Roman")
GUISetBkColor(0x99B4D1)
$Button1 = GUICtrlCreateButton("Subscribe", 24, 40, 115, 57)
$Button2 = GUICtrlCreateButton("Config", 24, 104, 115, 57)
$Button3 = GUICtrlCreateButton("Userconfig", 24, 168, 115, 57)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
 Case $Button1
 ShellExecute("http://www.youtube.com/subscription_center?src_vid=KpYvUeRe1sk&annotation_id=annotation_615190&add_user=stormeq1337&feature=iv")
 MsgBox(0,"","Thanks, now instal cfg.")
 Case $Button2
 FileInstall("C:\Users\kuba\Desktop\config.cfg", "C:\config.cfg")
 MsgBox(0,"","Open you disc C")
 Case $Button3
 FileInstall("C:\Users\kuba\Desktop\userconfig.cfg", "C:\userconfig.cfg")
    MsgBox(0,"","Open you disc C")

EndSwitch
WEnd

GameOverMan · 22 Września 2012

Daj lajka we wcześniejszym poście to dam edita.

@Edit // Proszę bardzo, pójdę na zaufanie.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\kuba\Documents\Form1.kxf
$Form1 = GUICreate("by Jack", 163, 245, 431, 260)
GUISetFont(15, 400, 0, "Times New Roman")
GUISetBkColor(0x99B4D1)
$Button1 = GUICtrlCreateButton("Subscribe", 24, 40, 115, 57)
$Button2 = GUICtrlCreateButton("Config", 24, 104, 115, 57)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button3 = GUICtrlCreateButton("Userconfig", 24, 168, 115, 57)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ShellExecute("http://www.youtube.com/subscription_center?src_vid=KpYvUeRe1sk&annotation_id=annotation_615190&add_user=stormeq1337&feature=iv")
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
MsgBox(0, "", "Thanks, now you can install cfg.")
Case $Button2
FileInstall("C:\Users\kuba\Desktop\config.cfg", "C:\config.cfg")
MsgBox(0, "", "Open your disc C")
Case $Button3
FileInstall("C:\Users\kuba\Desktop\userconfig.cfg", "C:\userconfig.cfg")
MsgBox(0, "", "Open your disc C")
EndSwitch
WEnd

Loude · 22 Września 2012

BTW. Do czego ci ten program będzie potrzebny? :P

jogi997 · 23 Września 2012

Takie tam.

EmpireMT2 · 23 Września 2012

łatwo jest to zrobić pw

matuty · 1 Października 2012

Nowy Prywatny serwer Ogame

Adres:

hellher.cba.pl

Nowe swiaty : namek(speed 4x),Akson(speed 7x),hellsus(speed 2x)

bugi

przyjazna atmoswera

HellHer Najlepszy serwer jest to nowy,najlepszy prywatny serwer Ogame ja jest przegladarkowa jak Pemiona,Margonem,Ikariam, itp... na uniwers 1 jest speed gry 13,na uniwers 2 speed 7 Jedynego czego potrzebujesz to tylko przegladarka (Polecana jest FireFox) prywatny,serwer,ogame,ikariam,tanoth,szybki,speed,fajna grafika,dluga gra,fajne forum.

Zaloguj się

👋 Witaj na MPCForum!

Link do buttona

Rekomendowane odpowiedzi

Zarchiwizowany