Marc56 a écrit :@ZorroOui, mais pourquoi veux-tu modifier le WebGadget ? alors qu'il n'est pas utilisé.tu peux aussi faire comme ça :
apres avoir mis le webgadget au normes (avec la procedure )
tu entres dans un RunProgram simplement l'URL , ça va lancer le navigateur par defaut de l'utilisateur !
PhM a écrit :Marc,
Je ne comprends pas bien ?
Qu'est-ce "URL_" ajouté à l'adresse apporte de plus dans cette affaire ? car je cherche d'abord le navigateur installé par défaut sur un PC.
Zorro,
Ton code me parait intéressant, j'étudie cela !
Ah, OK, d'accord.PhM a écrit :J'ai besoin de se renseignement car, quand je quitte le programme, je souhaite fermer le navigateur par défaut utilisé !
KillProgram(ID)
CloseProgram(ID)
)
Code : Tout sélectionner
; ************* pour le PID *****************
Structure PROCESSENTRY33
dwSize.L
cntUsage.L
th32ProcessID.L
th32DefaultHeapID.L
th32ModuleID.L
cntThreads.L
th32ParentProcessID.L
pcPriClassBase.L
dwFlags.L
szExeFile.b[#MAX_PATH]
EndStructure
;**************************************
Declare.i getNamePID(ProcessName.s,*ptrPID)
Declare.L cheater_pid_return(gamewindowtext.s)
Declare cheater_KillProcess (pid)
URL_Aeroport$ = "https://www.geoportail.gouv.fr/donnees/carte-oaci-vfr"
RunProgram(URL_Aeroport$)
for i= 1 to 10
pid= cheater_pid_return("Firefox") ; mettre ici le nom du navigateur employé pour ouvrir l'adresse
debug Pid
cheater_KillProcess (pid)
next i
delay(2000)
ProcedureDLL.L cheater_pid_return(gamewindowtext.s)
; Laisse cette procedure au dessus des autres, car elle est appelé par les autres
Name.s=UCase(gamewindowtext.s)
Recherche=0
If OpenLibrary(0, "Kernel32.dll")
CreateToolhelpSnapshot = GetFunction(0, "CreateToolhelp32Snapshot")
ProcessFirst = GetFunction(0, "Process32First")
ProcessNext = GetFunction(0, "Process32Next")
If CreateToolhelpSnapshot And ProcessFirst And ProcessNext ; Ensure than all the functions are found
Process.PROCESSENTRY33\dwSize = SizeOf(PROCESSENTRY33)
Snapshot = CallFunctionFast(CreateToolhelpSnapshot, #TH32CS_SNAPPROCESS, 0)
If Snapshot
ProcessFound = CallFunctionFast(ProcessFirst, Snapshot, Process)
While ProcessFound
Nom.s=UCase(PeekS(@Process\szExeFile, -1, #PB_Ascii))
Nom=GetFilePart(Nom)
If FindString(Nom,Name.s,1);;=Name;If Nom=Name
Recherche =1
pid=Process\th32ProcessID
EndIf
ProcessFound = CallFunctionFast(ProcessNext, Snapshot, Process)
Wend
EndIf
CloseHandle_(Snapshot)
EndIf
CloseLibrary(0)
EndIf
ProcedureReturn pid
EndProcedure
ProcedureDLL cheater_KillProcess (pid)
;tue un process
#PROCESS_TERMINATE = $1
#PROCESS_CREATE_THREAD = $2
#PROCESS_VM_OPERATION = $8
#PROCESS_VM_READ = $10
#PROCESS_VM_WRITE = $20
#PROCESS_DUP_HANDLE = $40
#PROCESS_CREATE_PROCESS = $80
#PROCESS_SET_QUOTA = $100
#PROCESS_SET_INFORMATION = $200
#PROCESS_QUERY_INFORMATION = $400
#PROCESS_ALL_ACCESS = #STANDARD_RIGHTS_REQUIRED | #SYNCHRONIZE | $FFF
phandle = OpenProcess_ (#PROCESS_TERMINATE, #False, pid)
If phandle <> #Null
If TerminateProcess_ (phandle, 1)
result = #True
EndIf
CloseHandle_ (phandle)
EndIf
ProcedureReturn result
EndProcedure
Alors tu peux faire ça en une seule ligne:Zorro a écrit :moi j'ai la solution bourrin ; je ferme tout !
mais par contre il faut connaitre le nom de l'application (ici avec Firefox)
pour connaitre le nom a fermer il faut allez dans le gestionaire des taches (Ctrl+Alt+Supr)
ici avec Firefox , ça marche
note que j'ai inclu la fermeture dans une boucle, pour vraiment fermer toutes les instances de firefox (meme celles deja ouvertes
ici je teste 10 fois, pour etre sur ...
Code : Tout sélectionner
RunProgram("taskkill", "/im firefox.exe", "")
Code : Tout sélectionner
RunProgram("taskkill", "/im firefox.exe", "")
Des outils systèmes en ligne de commande (présents dans %Windir%\System32). Autrefois fournis sous forme de 'Ressource kit' avec les version serveur de Windows, maintenant présent sur toutes les versions depuis Windows XP.Par curiosité, d'ou sort ce "taskkill" ???
C'est rectifiéPhM a écrit :Voici la toute dernière version (0.9.2) qui prends en charge le navigateur par défaut sans refermer celui-ci lorsque l'on quitte le programme.
https://mijon.pagesperso-orange.fr/Pure ... CF2020.zip
Cela améliore-t-il les choses chez vous
Justement, je me demandais si cela était possible...Reste à faire un IncludeBinary pour mettre aussi l'image de couverture dans l'EXE
Exemple en supposant que le fichier image soit dans le même répertoire que le .pb au moment de la compilation, sinon il suffit de mettre le cheminPhM a écrit :Justement, je me demandais si cela était possible...Reste à faire un IncludeBinary pour mettre aussi l'image de couverture dans l'EXE
Code : Tout sélectionner
EnableExplicit
Enumeration
#Win
#Img
EndEnumeration
UsePNGImageDecoder()
CatchImage(#Img, ?Img_Book)
OpenWindow(#Win, 100, 100, 300, 300, "", #PB_Window_SystemMenu)
ImageGadget(#Img, 10, 10, 280, 280, ImageID(#Img))
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
End
DataSection
Img_Book:
IncludeBinary "vac2.png"
EndDataSection