Wi-Fi One 1.1.0

De IPS Codes Sources
Sauter à la navigation Sauter à la recherche
Wi-Fi One 1.1.0
Langage de programmation batch, VBS
Système compatible Windows XP et supérieurs
Année de sortie 2017
Statut actuel Dépassé

Liste des fichiers

WIFIONE.bat

  1 @echo off
  2 Title Wi-Fi One
  3 color 3F
  4 :01
  5 call CAD1.bat
  6 :MAINMENU
  7 cls
  8 call CAD2.bat
  9 CHOICE /C 1234567aq >nul
 10 SET C=%ERRORLEVEL%
 11 IF %C%==1 GOTO :create
 12 IF %C%==2 GOTO :delete
 13 IF %C%==3 GOTO :rename
 14 IF %C%==4 GOTO :changemdp
 15 IF %C%==5 GOTO :Start/Stop
 16 IF %C%==6 GOTO :RAPPORT
 17 IF %C%==7 GOTO :SITE
 18 IF %C%==8 GOTO :Aide
 19 IF %C%==9 GOTO :Exit
 20 :create
 21 cls
 22 echo ATTENTION !
 23 echo Si un reseau est deja heberge par cet ordinateur, vous devez le supprimer avant !
 24 echo.
 25 echo Pour annuler, vous pouvez appuyer maintenant sur A pour ANNULER et sur C pour CONTINUER
 26 CHOICE /C ac >nul
 27 SET C=%ERRORLEVEL%
 28 IF %C%==1 GOTO :MAINMENU
 29 IF %C%==2 GOTO :NEXT1
 30 :NEXT1
 31 cls
 32 echo Veuillez entrer le nom du reseau Wi-Fi a creer.
 33 set /p nomreseau="Nom : "
 34 echo.
 35 echo Veuillez entrer un mot de passe pour ce reseau.
 36 set /p mdpreseau="Mot de passe : "
 37 cls
 38 echo Veuillez verifier les informations entrees :
 39 echo Nom du reseau : %nomreseau%
 40 echo Mot de passe : %mdpreseau%
 41 echo.
 42 echo Est-ce juste ?
 43 echo O=Oui N=Non
 44 
 45 CHOICE /C on >nul
 46 SET C=%ERRORLEVEL%
 47 IF %C%==1 GOTO :CREATEWIFI
 48 IF %C%==2 GOTO :NEXT1
 49 
 50 :CREATEWIFI
 51 cls
 52 echo Creation en cours, veuillez patienter...
 53 timeout /t 3 /nobreak >nul
 54 call NEW.bat
 55 cls
 56 start DODB.vbs
 57 goto :MAINMENU
 58 
 59 :delete
 60 cls
 61 echo Attention, ceci va supprimer integralement le reseau Wi-Fi heberge sur ce PC !
 62 echo Pour annuler, vous pouvez appuyer maintenant sur A pour ANNULER et sur C pour CONTINUER
 63 CHOICE /C ac >nul
 64 SET C=%ERRORLEVEL%
 65 IF %C%==1 GOTO :MAINMENU
 66 IF %C%==2 GOTO :NEXT2
 67 :NEXT2
 68 cls
 69 echo Veuillez patienter...
 70 timeout /t 3 /nobreak >nul 
 71 netsh wlan disconnect hostednetwork
 72 start SUP.vbs
 73 goto :MAINMENU
 74 
 75 :rename
 76 echo Veuillez entrer le nom du reseau Wi-Fi a modifier.
 77 set /p rnomreseau="Nom : "
 78 cls
 79 echo Veuillez verifier les informations entrees :
 80 echo Nom du reseau : %rnomreseau%
 81 echo.
 82 echo Est-ce juste ?
 83 echo O=Oui N=Non
 84 CHOICE /C on >nul
 85 SET C=%ERRORLEVEL%
 86 IF %C%==1 GOTO :NEXT3
 87 IF %C%==2 GOTO :rename
 88 :NEXT3
 89 cls
 90 netsh wlan set hostednetwork ssid=%rnomreseau%
 91 cls
 92 start rena.vbs
 93 start AVRES.vbs
 94 goto :MAINMENU
 95 
 96 :changemdp
 97 cls
 98 echo Veuillez entrer le mot de passe du reseau Wi-Fi a modifier.
 99 set /p rmdpreseau="Mot de passe : "
100 cls
101 echo Veuillez verifier les informations entrees :
102 echo Mot de passe du reseau : %rmdpreseau%
103 echo.
104 echo Est-ce juste ?
105 echo O=Oui N=Non
106 CHOICE /C on >nul
107 SET C=%ERRORLEVEL%
108 IF %C%==1 GOTO :NEXT4
109 IF %C%==2 GOTO :changemdp
110 :NEXT4
111 cls
112 netsh wlan set hostednetwork ssid=%rmdpreseau%
113 cls
114 start mdp.vbs
115 start AVRES.vbs
116 goto :MAINMENU
117 
118 :start/stop
119 cls
120 start WIFI.vbs
121 goto :MAINMENU
122 
123 :exit
124 cls
125 echo Au Revoir !
126 timeout /t 1 /nobreak >nul
127 Exit
128 
129 :Aide
130 cls
131 call CAD3.bat
132 CHOICE /C 1234m >nul
133 SET C=%ERRORLEVEL%
134 IF %C%==1 GOTO :VIDEO
135 IF %C%==2 GOTO :TEXT1
136 IF %C%==3 GOTO :TEXT2
137 IF %C%==4 GOTO :CONTACTSITE
138 IF %C%==5 GOTO :MAINMENU
139 
140 :VIDEO
141 cls
142 start TUTO1.mp4
143 goto :Aide
144 
145 :TEXT1
146 cls
147 call AIDE1.bat
148 pause
149 goto :Aide
150 
151 :TEXT2
152 cls
153 call AIDE2.bat
154 goto :Aide
155 
156 :CONTACTSITE
157 cls
158 start https://jfamgamesstudios.wixsite.com/batchandco/contact
159 goto :Aide
160 
161 :RAPPORT
162 cls
163 netsh wlan show hostednetwork
164 pause
165 goto :MAINMENU
166 
167 :SITE
168 cls
169 start https://jfamgamesstudios.wixsite.com/batchandco/mises-a-jour
170 start version.vbs
171 goto :MAINMENU

CAD1.bat

 1 @echo off
 2 color 3F
 3 echo    ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
 4 echo    °                     Wi-Fi One                         °
 5 echo    °                     =========                         °
 6 echo    °               Cr‚ation de r‚seaux Wi-Fi               °
 7 echo    °*******************************************************°
 8 echo    °                                                       °
 9 echo    °                                                       °
10 echo    °                     BIENVENUE !                       °
11 echo    °                                                       °
12 echo    °                                                       °
13 echo    °                    Version 1.1.0                      °
14 echo    °                                                       °
15 echo    °           Ce micro-logiciel est d‚velopp‚ par         °
16 echo    °                J.F.A.M.Games Studios.                 °
17 echo    °     Il a ‚t‚ d‚velopp‚ dans un but non-commercial     °
18 echo    °           et n'est pas destin‚ … la vente.            °
19 echo    ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
20 echo    °                                                       °
21 echo    °        APPUIEZ SUR UNE TOUCHE POUR CONTINUER          °
22 echo    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
23 
24 pause>nul

CAD2.bat

 1 @echo off
 2 color 3F
 3 echo    ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
 4 echo    °                     Wi-Fi One                         °
 5 echo    °                     =========                         °
 6 echo    °               Creation de reseaux Wi-Fi               °
 7 echo    °*******************************************************°
 8 echo    °                                                       °
 9 echo    °     Veuillez selectionner une option en tapant son    °
10 echo    °           numero (voir la liste ci-dessous)           °
11 echo    ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
12 echo    ° 1=Creer un reseau Wi-Fi                               °
13 echo    ° 2=Supprimer un reseau Wi-Fi existant                  °
14 echo    ° 3=Renommer un reseau Wi-Fi existant                   °
15 echo    ° 4=Modifier le mot de passe d'un reseau Wi-Fi existant °
16 echo    ° 5=Demarrer/arreter le reseau Wi-Fi heberge par ce PC  °
17 echo    ° 6=Afficher le rapport sur le réseau Wi-Fi             °
18 echo    ° 7=Afficher les mises à jour disponibles               °
19 echo    ° A=Afficher l'aide                                     °
20 echo    ° Q=Quitter                                             °
21 echo    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ

CAD3.bat

 1 @echo off
 2 echo    ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
 3 echo    °                         WifiOne                         °
 4 echo    °                        =========                        °
 5 echo    °                  Creation de r‚seaux wifi               °
 6 echo    °                      Menu d'aide                        °
 7 echo    °*********************************************************°
 8 echo    °                                                         °
 9 echo    °   Veuillez selectionner une option en tapant son numero °
10 echo    °              (voir la liste ci-dessous).                °
11 echo    °                                                         °
12 echo    ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
13 echo    ° 1=Comment configurer le r‚seau local pour le r‚seau     °
14 echo    °   h‚berg‚ par ce PC ? {VIDEO}                           °
15 echo    ° 2=Que faire si un appareil n'arrive plus … se connecter °
16 echo    °   … mon Wi-Fi pour cause de "Mot de passe erron‚" ?     °
17 echo    ° 3=Que faire si l'appareil connect‚ sur mon r‚seau ne    ° 
18 echo    °   capte plus ?                                          °
19 echo    ° 4=Poser votre question {REDIRECTION VERS NOTRE SITE}    °
20 echo    ° M=Retourner au menu                                     °
21 echo    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ

NEW.bat

 1 @echo off
 2 echo @echo off >NEWWIFI.bat
 3 if "%PROCESSOR_ARCHITECTURE%" == "AMD64" ( 
 4     SET "strProgramFiles=%programfiles(x86)%" 
 5 ) 
 6 if not "%PROCESSOR_ARCHITECTURE%" == "AMD64" ( 
 7     SET strProgramFiles=%programfiles% 
 8 )
 9 echo netsh wlan set hostednetwork mode=allow ssid=%nomreseau% key=%mdpreseau% >> C:\Users\%USERNAME%\Desktop\NEWWIFI.bat
10 echo "%strProgramFiles%"\"Wi-Fi One"\CRE.vbs >> C:\Users\%USERNAME%\Desktop\NEWWIFI.bat
11 echo "%strProgramFiles%"\"Wi-Fi One"\STA.vbs >> C:\Users\%USERNAME%\Desktop\NEWWIFI.bat
12 echo erase NEWWIFI.bat >> C:\Users\%USERNAME%\Desktop\NEWWIFI.bat

START.bat

 1 @echo off
 2 if "%PROCESSOR_ARCHITECTURE%" == "AMD64" ( 
 3     SET "strProgramFiles=%programfiles(x86)%" 
 4 ) 
 5 if not "%PROCESSOR_ARCHITECTURE%" == "AMD64" ( 
 6     SET strProgramFiles=%programfiles% 
 7 )
 8 echo @echo off > C:\Users\%USERNAME%\Desktop\STARTWIFI.bat
 9 echo netsh wlan start hostednetwork >> C:\Users\%USERNAME%\Desktop\STARTWIFI.bat
10 echo "%strProgramFiles%"\"Wi-Fi One"\start.vbs >> C:\Users\%USERNAME%\Desktop\STARTWIFI.bat
11 echo erase C:\Users\%USERNAME%\Desktop\STARTWIFI.bat >> C:\Users\%USERNAME%\Desktop\STARTWIFI.bat
12 start AVDESK.vbs
13 exit

STOP.bat

1 @echo off
2 netsh wlan stop hostednetwork
3 cls
4 Start STOP.vbs
5 exit

AVDESK.vbs

1 x = msgbox("Un lien document du nom de STARTWIFI a été créé sur votre bureau. Veuillez l'ouvrir en mode administrateur.",0+64+4096,"Wi-Fi One")

AVRES.vbs

1 x = msgbox("Attention ! Vous devez arreter puis re-activer votre Wi-Fi maintenant !",0+48+4096,"Wi-Fi One")

CRE.vbs

1 x = msgbox("Reseau cree !",0+64+4096,"Wi-Fi One")

DODB.vbs

1 x = msgbox("Un fichier du nom de NEWWIFI a ete cree sur votre bureau. Veuillez l'ouvrir en mode administrateur afin de creer votre reseau.",0+64+4096,"Wi-Fi One")

MDP.vbs

1 x = msgbox("Mot de passe modifie !",0+64+4096,"Wi-Fi One")

RENA.vbs

1 x = msgbox("Reseau renome !",0+64+4096,"Wi-Fi One")

STA.vbs

1 x = msgbox("Attention ! Vous devez activer votre Wi-Fi maintenant !",0+48+4096,"Wi-Fi One")

START.vbs

1 x = msgbox("Réseau Wi-Fi démarré !",0+64+4096,"Paramètres du réseau Wi-Fi hébergé par cet ordinateur")

STOP.vbs

1 x = msgbox("Réseau Wi-Fi arrêté",0+64+4096,"Paramètres du réseau Wi-Fi hébergé par cet ordinateur")

SUP.vbs

1 x = msgbox("Reseau supprime !",0+64+4096,"Wi-Fi One")

WIFI.vbs

 1 x = msgbox("Pour démarrer le réseau Wi-Fi, appuyez sur OUI et pour l'arrêter, appuyez sur NON",3+0+4096,"Wi-Fi One")
 2 
 3 If x = 6 Then
 4 
 5 y = msgbox("Le réseau Wi-Fi va démarrer...")
 6 
 7 commande = "C:\Program Files (x86)\Wi-Fi One\START.bat"
 8 Set fso = CreateObject("Scripting.FileSystemObject" )
 9 set shl = createobject("wscript.shell" )
10 shl.run """"+commande+"""",1,false
11 
12 End If
13 
14 If x = 7 Then
15 z = msgbox("Le réseau Wi-Fi va s'arrêter...")
16 
17 commande = "C:\Program Files (x86)\Wi-Fi One\STOP.bat"
18 Set fso = CreateObject("Scripting.FileSystemObject" )
19 set shl = createobject("wscript.shell" )
20 shl.run """"+commande+"""",1,false
21 
22 End If

version.vbs

1 x = msgbox("Vous avez la version 1.1.0",0+64+4096,"Wi-Fi One")