Tweet
Các pro cho hỏi đoạn code sau đây là ngôn ngữ gì! em mới học năm nhất nên xin chỉ giáo!!!:smile:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <GIFAnimation.au3>
#include <Misc.au3>
MsgBox(0,'.....................')
Global $install[10]
$install[0]= '.........'
$install[1]= '..............'
$install[2]= '..............'
$install[3]= '...............'
$w= @DesktopWidth/1024
$h= @DesktopHeight/768
$all= $w * $h
$title= '........'
ProgressOn('','................','')
DirCreate('data')
Sleep(100)
FileInstall('....................')
ProgressSet(10)
Sleep(100)
ProgressOff()
Sleep(1000)
$msg = '...........................'&@CRLF
$msg &= '...............................'&@CRLF
$msg &= '...................'&@CRLF
$string = '...................... !!(-^-^-) '
WinMinimizeAll()
$main = GUICreate($title,@DesktopWidth,@DesktopHeight,0,0, $WS_POPUP)
GUISetBkColor(0x000000)
SoundSetWaveVolume(0)
SoundPlay ($install[0])
For $k= 0 To 100 Step +1
SoundSetWaveVolume($k)
Sleep(50)
Next
GUISetFont(11*$all,350*$all,0,'Tahoma')
WinSetOnTop($title,'',1)
$input= GUICtrlCreateInput('', 400*$w, 510*$h,300*$w,23*$h,$ES_CENTER)
$label2= GUICtrlCreateLabel('',50*$w, 100*$h,200*$w,23*$h)
$label= GUICtrlCreateLabel($msg,200*$w, 210*$h,800*$w,300*$h,$SS_RIGHT)
_GUICtrlCreateGIF($install[3], 260*$w, 40*$h,0,0,0,0)
_GUICtrlCreateGIF($install[8], 510*$w, 550*$h, 0,0,0,0)
_GUICtrlCreateGIF($install[4], 50*$w+(StringLen($string)/2),100*$h+25, 0,0,0,0)
GUICtrlSetColor($label2,0xFFAA00)
GUICtrlSetColor($label,0xFFFFFF)
WinSetTrans($title,'',0)
GUISetState(@SW_SHOW,$title)
BlockInput(1)
For $a= 0 To 200 Step +5
WinSetTrans($title,'',$a)
Sleep(1)
Next
BlockInput(0)
GUISetState(@SW_SHOW,$main)
While GUICtrlRead($input) <> '................'
$read= GUICtrlRead($input)
If $read= '........' Then
ToolTip('.................',620*$w, 620*$h,'',0,1)
EndIf
If $read= '...........' Then
ToolTip('.....................',615*$w, 635*$h,'',0,1)
EndIf
$string= StringLeft($string, StringLen($string)-1)
Sleep(500)
$string= StringRight($string,1) &$string
GUICtrlSetData($label2,$string)
If ProcessExists('taskmgr.exe') Then
ProcessClose('taskmgr.exe')
ElseIf ProcessExists('cmd.exe') Then
ProcessClose('cmd.exe')
EndIf
WEnd
ToolTip('.....................',620*$w, 620*$h,'',0,1)
Sleep(3000)
ToolTip('...................',615*$w, 635*$h,'',0,1)
Sleep(3000)
ToolTip('')
For $a= 200 To 0 Step -5
WinSetTrans($title,'',$a)
Sleep(1)
Next
GUIDelete($main)
;Khai báo thông tin
$msg2 = '.....................'&@CRLF
$msg2 &= '.............................!'&@CRLF
$msg2 &= '"............................'&@CRLF
$main2= GUICreate($title,@DesktopWidth,@DesktopHeight,0,0, $WS_POPUP)
GUISetFont(11*$all,300*$all,0,'Tahoma')
GUISetBkColor(0x000000)
$label3= GUICtrlCreateLabel($msg2,200*$w,225*$h,800*$w,300* $h,$SS_RIGHT)
$label4= GUICtrlCreateLabel($msg3,30*$w,480*$h,800*$w,300*$ h,$SS_LEFT)
$lastpic= GUICtrlCreatePic($install[9],0,-768,1024,768)
GUICtrlSetColor($label3,0x00FFAA)
GUICtrlSetColor($label4,0xFF0000)
$Pic4 =_GUICtrlCreateGIF($install[6], 120*$w, 200*$h, 0,0,0,0)
$Pic5 = _GUICtrlCreateGIF($install[7], 720*$w, 500*$h, 0,0,0,0)
$Pic6 = _GUICtrlCreateGIF($install[5], 500*$w, 1, 0,0,0,0)
WinSetTrans($title,'',0)
GUICtrlSetState($lastpic,$GUI_HIDE)
GUISetState(@SW_SHOW,$title)
BlockInput(1)
For $a= 0 To 255 Step +5
WinSetTrans($title,'',$a)
Sleep(1)
Next
BlockInput(0)
GUISetState(@SW_SHOW,$main2)
While 1
If ProcessExists('taskmgr.exe') Then
ProcessClose('taskmgr.exe')
ElseIf ProcessExists('cmd.exe') Then
ProcessClose('cmd.exe')
EndIf
If _IsPressed('0D') Then
For $i= 1 To @DesktopHeight
GUICtrlSetPos($label3,200*$w,225*$h-$i)
GUICtrlSetPos($label4,30*$w,480*$h-$i)
GUICtrlSetPos($pic4,120*$w,200*$h-$i)
GUICtrlSetPos($pic5,720*$w,500*$h-$i)
GUICtrlSetPos($pic6,500*$w,1- $i)
Sleep(10)
Next
GUICtrlSetState($lastpic,$GUI_SHOW)
For $i= 1 To @DesktopHeight
GUICtrlSetPos($lastpic,0,$i-768)
Next
Sleep(1000)
For $k= 100 To 0 Step -1
SoundSetWaveVolume($k)
Sleep(50)
Next
BlockInput(1)
SoundPlay($install[1])
For $k= 0 To 100 Step +1
SoundSetWaveVolume($k)
Sleep(10)
Next
Run($install[2])
Sleep(30000)
BlockInput(0)
MouseClick('left')
For $a= 255 To 0 Step -5
WinSetTrans($title,'',$a)
Sleep(1)
Next
GUIDelete($main2)
MsgBox(0,'..........', $end)
Exit
EndIf
WEnd
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <GIFAnimation.au3>
#include <Misc.au3>
MsgBox(0,'.....................')
Global $install[10]
$install[0]= '.........'
$install[1]= '..............'
$install[2]= '..............'
$install[3]= '...............'
$w= @DesktopWidth/1024
$h= @DesktopHeight/768
$all= $w * $h
$title= '........'
ProgressOn('','................','')
DirCreate('data')
Sleep(100)
FileInstall('....................')
ProgressSet(10)
Sleep(100)
ProgressOff()
Sleep(1000)
$msg = '...........................'&@CRLF
$msg &= '...............................'&@CRLF
$msg &= '...................'&@CRLF
$string = '...................... !!(-^-^-) '
WinMinimizeAll()
$main = GUICreate($title,@DesktopWidth,@DesktopHeight,0,0, $WS_POPUP)
GUISetBkColor(0x000000)
SoundSetWaveVolume(0)
SoundPlay ($install[0])
For $k= 0 To 100 Step +1
SoundSetWaveVolume($k)
Sleep(50)
Next
GUISetFont(11*$all,350*$all,0,'Tahoma')
WinSetOnTop($title,'',1)
$input= GUICtrlCreateInput('', 400*$w, 510*$h,300*$w,23*$h,$ES_CENTER)
$label2= GUICtrlCreateLabel('',50*$w, 100*$h,200*$w,23*$h)
$label= GUICtrlCreateLabel($msg,200*$w, 210*$h,800*$w,300*$h,$SS_RIGHT)
_GUICtrlCreateGIF($install[3], 260*$w, 40*$h,0,0,0,0)
_GUICtrlCreateGIF($install[8], 510*$w, 550*$h, 0,0,0,0)
_GUICtrlCreateGIF($install[4], 50*$w+(StringLen($string)/2),100*$h+25, 0,0,0,0)
GUICtrlSetColor($label2,0xFFAA00)
GUICtrlSetColor($label,0xFFFFFF)
WinSetTrans($title,'',0)
GUISetState(@SW_SHOW,$title)
BlockInput(1)
For $a= 0 To 200 Step +5
WinSetTrans($title,'',$a)
Sleep(1)
Next
BlockInput(0)
GUISetState(@SW_SHOW,$main)
While GUICtrlRead($input) <> '................'
$read= GUICtrlRead($input)
If $read= '........' Then
ToolTip('.................',620*$w, 620*$h,'',0,1)
EndIf
If $read= '...........' Then
ToolTip('.....................',615*$w, 635*$h,'',0,1)
EndIf
$string= StringLeft($string, StringLen($string)-1)
Sleep(500)
$string= StringRight($string,1) &$string
GUICtrlSetData($label2,$string)
If ProcessExists('taskmgr.exe') Then
ProcessClose('taskmgr.exe')
ElseIf ProcessExists('cmd.exe') Then
ProcessClose('cmd.exe')
EndIf
WEnd
ToolTip('.....................',620*$w, 620*$h,'',0,1)
Sleep(3000)
ToolTip('...................',615*$w, 635*$h,'',0,1)
Sleep(3000)
ToolTip('')
For $a= 200 To 0 Step -5
WinSetTrans($title,'',$a)
Sleep(1)
Next
GUIDelete($main)
;Khai báo thông tin
$msg2 = '.....................'&@CRLF
$msg2 &= '.............................!'&@CRLF
$msg2 &= '"............................'&@CRLF
$main2= GUICreate($title,@DesktopWidth,@DesktopHeight,0,0, $WS_POPUP)
GUISetFont(11*$all,300*$all,0,'Tahoma')
GUISetBkColor(0x000000)
$label3= GUICtrlCreateLabel($msg2,200*$w,225*$h,800*$w,300* $h,$SS_RIGHT)
$label4= GUICtrlCreateLabel($msg3,30*$w,480*$h,800*$w,300*$ h,$SS_LEFT)
$lastpic= GUICtrlCreatePic($install[9],0,-768,1024,768)
GUICtrlSetColor($label3,0x00FFAA)
GUICtrlSetColor($label4,0xFF0000)
$Pic4 =_GUICtrlCreateGIF($install[6], 120*$w, 200*$h, 0,0,0,0)
$Pic5 = _GUICtrlCreateGIF($install[7], 720*$w, 500*$h, 0,0,0,0)
$Pic6 = _GUICtrlCreateGIF($install[5], 500*$w, 1, 0,0,0,0)
WinSetTrans($title,'',0)
GUICtrlSetState($lastpic,$GUI_HIDE)
GUISetState(@SW_SHOW,$title)
BlockInput(1)
For $a= 0 To 255 Step +5
WinSetTrans($title,'',$a)
Sleep(1)
Next
BlockInput(0)
GUISetState(@SW_SHOW,$main2)
While 1
If ProcessExists('taskmgr.exe') Then
ProcessClose('taskmgr.exe')
ElseIf ProcessExists('cmd.exe') Then
ProcessClose('cmd.exe')
EndIf
If _IsPressed('0D') Then
For $i= 1 To @DesktopHeight
GUICtrlSetPos($label3,200*$w,225*$h-$i)
GUICtrlSetPos($label4,30*$w,480*$h-$i)
GUICtrlSetPos($pic4,120*$w,200*$h-$i)
GUICtrlSetPos($pic5,720*$w,500*$h-$i)
GUICtrlSetPos($pic6,500*$w,1- $i)
Sleep(10)
Next
GUICtrlSetState($lastpic,$GUI_SHOW)
For $i= 1 To @DesktopHeight
GUICtrlSetPos($lastpic,0,$i-768)
Next
Sleep(1000)
For $k= 100 To 0 Step -1
SoundSetWaveVolume($k)
Sleep(50)
Next
BlockInput(1)
SoundPlay($install[1])
For $k= 0 To 100 Step +1
SoundSetWaveVolume($k)
Sleep(10)
Next
Run($install[2])
Sleep(30000)
BlockInput(0)
MouseClick('left')
For $a= 255 To 0 Step -5
WinSetTrans($title,'',$a)
Sleep(1)
Next
GUIDelete($main2)
MsgBox(0,'..........', $end)
Exit
EndIf
WEnd
. close task vs cmd nếu nó chạy
)
.
Comment