'Concour Canular de Noufnouf°°°
'Par Black Templar
'Open source

nomainwin
WindowWidth = 200
WindowHeight = 70
UpperLeftX = (WindowWidth-DisplayWidth)/2
UpperLeftY = (WindowHeight-DisplayHeight)/2
 
stylebits #1 ,0 ,0 ,_WS_EX_TOPMOST, 0
statictext #1.text, "Hello World !!", 1, 1, 200, 100
open "" for window as #1
#1.text, "!font Arial 23"
 
struct POINTAPI, _
       X as long, _
       Y as long
 
#1, "trapclose [quit]"
hd = hwnd(#1)
fx = 5
fy = 5
'PosX = (WindowWidth-DisplayWidth)/2
'PosY = (WindowHeight-DisplayHeight)/2

timer 1, [move]
wait
 
[move]
PosX = PosX + fx
PosY = PosY + fy
if PosX + 200 >= DisplayWidth and fx = 5 then fx = -5
if PosX <= 0 and fx = -5 then fx = 5
if PosY + 100 >= DisplayHeight and fy = 5 then fy = -5
if PosY <= 0 and fy = -5 then fy = 5
scan
calldll #user32, "SetWindowPos", _
                 hd as long, _
                 _HWND_NOTOPMOST as long, _
                 PosX as long, _
                 PosY as long, _
                 200 as long, _
                 70 as long, _
                 _SWP_NOZORDER as long, _
                 result as long
 
calldll #user32, "GetCursorPos", POINTAPI As struct, r As Long
    if (POINTAPI.X.struct < (PosX + 200)) and  (POINTAPI.X.struct > (PosX + 180)) and (POINTAPI.Y.struct > (PosY)) and (POINTAPI.Y.struct < (PosY + 20)) then calldll #user32, "SetCursorPos", 1 As Long, 1 As Long, r As Long
 
wait
 
[quit]
close #1
 
WindowWidth = DisplayWidth
WindowHeight = DisplayHeight
BackgroundColor$ = "black"
ForegroundColor$ = "white"
'graphicbox #11.g, 500,500,1,1
statictext #11.t,"", 1,1,300,25
statictext #11.t2,"", 1,35,500,200
'statictext #11.t3,"", 1,235,500,500
open "" for window_popup as #11
hd=hwnd(#11)
    flag=_SW_MAXIMIZE
    calldll #user32, "ShowWindow",_
                     hd as long,_
                     flag as long,_
                     result as long
#11, "trapclose [exit]"
#11, "font Verdana_Ref 10"
 
msg$ = "C:\> WINDOWS\SYSTEM32\VIR.COM"+chr$(13)+chr$(13)
msg2$ = "Installation en cour  . . ." _
       +chr$(13)+"SYSTEM32\VIR.DLL" _
       +chr$(13)+"SYSTEM32\USER32.DLL" _
       +chr$(13)+"SYSTEM32\SET.EXE" _
       +chr$(13)+"SYSTEM32\CONFIG.CFG" _
       +chr$(13)+"SYSTEM32\TIME.BIN" _
       +chr$(13)+"SYSTEM32\KEY.DAT" _
       +chr$(13)+"SYSTEM32\INIT.TXT" _
       +chr$(13)+"SYSTEM32\REPLACE.EXE" _
       +chr$(13)+chr$(13)+"Installation completed"
x = 13
y = 15
 
message$ = ""
for i = 1 to len(msg$)
    message$ = message$ + mid$(msg$,i,1)
    print #11.t, message$ 
    if i = 4 then call pause 1000*2
    if i>4 then call pause 100
next
message$ = ""
for i = 1 to len(msg2$)
    if mid$(msg2$,i,1) = chr$(13) then call pause 200
    message$ = message$ + mid$(msg2$,i,1)
    print #11.t2, message$
 
next
call pause 1000*5
 
struct OSVI,_
dwOSVersionInfoSize as long,_
dwMajorVersion as long,_
dwMinorVersion as long,_
dwBuildNumber as long,_
dwPlatformId as long,_
szCSDVersion$ as char[128]
 
OSVI.dwOSVersionInfoSize.struct= _
        len(OSVI.struct)
 
'create a test batch file
batchFile$ = DefaultDir$+"\test.bat"
 
open batchFile$ for output as #1
#1 "@echo off"
#1 "echo Dos 1.00a"
#1 "echo."
#1 "echo Installation VIR.COM"
#1 "echo Date : 2006"
#1 "echo Start : 1 days"
#1 "echo."
'#1 "pause"
#1 "echo."
#1 "echo                 ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
#1 "echo                 °                        °"
#1 "echo                 ° INSTALLATION COMPLETED °"
#1 "echo                 °                        °"
#1 "echo                 ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍŒ"
#1 "echo."
#1 "echo."
#1 "echo."
#1 "pause"
#1 "exit"
close #1
 
q$ = chr$(34)
SysVersion = getBatchVersion()
select case SysVersion
        case 0
        Notice "Une erreur s'est produite"+ _
        " version system."
        case 4
        run "command.com /k "+q$+batchFile$+q$ 
        case 5
        run "cmd.exe /k "+q$+batchFile$+q$ 
        case Else
        notice "Logiciel d'exploitation non supporté"
end select
 
 
 
 
 
close #11
end
 
sub pause time
    calldll #kernel32, "Sleep", time as ulong, result   as void
end sub
 
function getBatchVersion()
calldll #kernel32, "GetVersionExA", _
        OSVI as struct, r as long
if r then
        OSVersion=OSVI.dwMajorVersion.struct
        PlatformId=OSVI.dwPlatformId.struct
        select case PlatformId
        case _VER_PLATFORM_WIN32_NT
                If OSVersion >=4 Then getBatchVersion=5
        case _VER_PLATFORM_WIN32_WINDOWS
                getBatchVersion = OSVersion
        end select
end if
end function