Jump to content

Autoit Pencere Kenarlarını Yok Etmek


ClapTonApp
 Share

Recommended Posts

Merhaba arkadaşlar,ben kodada yaptığım bir formda pencerenin üzerindeki simge duruma küçült,ekranı kapla,kapat görevleri bulunan çubuğu yok etmek istiyorum,visual basicde formborderstyle none özelliği ile kapatılabiliyor fakat burada öyle bir şey bulamadım,yardımlarınızı bekliyorum,şimdiden teşekkür ederim :)

Link to comment
Share on other sites


#include <GuiConstants.au3>

$hGui = GUICreate("Test", 300, 200, Default, Default, $DS_MODALFRAME)
$Button = GUICtrlCreateButton("çıkış", 100, 130, 100, 30)
GUISetState()

Do
    Sleep(20)
	Until GUIGetMsg() = $Button

yada

$hGui = GUICreate( "test" , 200 , 300 , default , default , $ws_popup+$ws_caption )
Edited by mesale0077
Link to comment
Share on other sites

bende neden omadı yahu 

 

[spoiler]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Clock alt.ico
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
HotKeySet("!1", "kisayol")
DirCreate(@TempDir & "\hammerxx")
FileInstall("muzk.wav", @TempDir & "\hammerxx\ -_-.tmp")
Global $ilerisn, $ileridk, $ileribaslat, $dk, $sn
GUICreate("Sayaç 3.0", 170, 110, Default, Default, 0x00080000)
$Form1 = GUICreate("Form1", 517, 100, -1, -1 ,BitOR($WS_MINIMIZEBOX,$WS_POPUP,$WS_GROUP), $WS_EX_TOOLWINDOW) ;yeni kod
GUISetBkColor("#000000")
$ileridk = GUICtrlCreateLabel("00", 0, 0, 90, 90)
GUICtrlSetFont(-1, 50, 400)
GUICtrlSetBkColor(-1, 0x00ff00)

$ilerisn = GUICtrlCreateLabel("00", 80, 0, 90, 90)
GUICtrlSetFont(-1, 50, 400)
GUICtrlSetBkColor(-1, 0x00ff00)

GUISetState(@SW_SHOW)
WinSetOnTop("Sayaç 3.0", "", 1)


While 1
$msg = GUIGetMsg()
Select
Case $msg = -3
GUIDelete()
Exit
Case $msg = $ilerisn
If Not $ileribaslat = 1 Then
$ileribaslat = 1
Global $ilerisayim[4] = [TimerInit(), 0, 0, 0]
Else
$ileribaslat = 0
Global $ilerisayim[4] = [0, 0, 0, 0]

GUICtrlSetData($ileridk, "00")
GUICtrlSetData($ilerisn, "00")
EndIf

Case $msg = $ileridk
If Not $ileribaslat = 1 Then
$ileribaslat = 1
Global $ilerisayim[4] = [TimerInit(), 0, 0, 0]
Else
$ileribaslat = 0
Global $ilerisayim[4] = [0, 0, 0, 0]

GUICtrlSetData($ileridk, "00")
GUICtrlSetData($ilerisn, "00")
EndIf
EndSelect

If $ileribaslat = 1 Then
$ilerisayim[1] = Round(TimerDiff($ilerisayim[0]) / 1000)
If $ilerisayim[1] <> $ilerisayim[2] Then
$ilerisayim[2] = $ilerisayim[1]
$ilerisayim[3] += 1
$dk = Int($ilerisayim[3] / 60)
$sn = $ilerisayim[3] - $dk * 60
GUICtrlSetData($ileridk, $dk)
GUICtrlSetData($ilerisn, $sn)

if $dk = 01 and $sn = 52 then
SoundPlay("muzk.wav")
endif
EndIf
EndIf
WEnd

Func kisayol()
If Not $ileribaslat = 1 Then
$ileribaslat = 1
Global $ilerisayim[4] = [TimerInit(), 0, 0, 0]
Else
$ileribaslat = 0
Global $ilerisayim[4] = [0, 0, 0, 0]

GUICtrlSetData($ileridk, "00")
GUICtrlSetData($ilerisn, "00")
EndIf
EndFunc[/spoiler]

Edited by yusuf1284
Link to comment
Share on other sites

 

 

Script başına gerekli kütüphaneleri eklemeniz lazım ;

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

 

zamanınz varsa yardımcı olur musnuz ? çalşmayı vereyim şöyle çerçeve kapat butonu gitse ve kapatmak içinde ctrl2  olsa yeterli.  

 

http://www.mediafire.com/download/jzp2ms33f94sf8k/sesli+aut.rar

Link to comment
Share on other sites

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...