Information Technology Tips & Tricks
+32 475 23 19 91

Garnir un arbre

Posté le Par Publié dans Windev

Windev Webdev Astuces

Procédure récursive

PROCEDURE ChargeGroup(LOCAL nIDCatégorie = 0, LOCAL sNoeudParent = "Famille")
nPosition est un entier
POUR TOUT Group AVEC IDGroupParent = nIDCatégorie 
  // Ajoute dans l'arbre 
  ArbreAjoute(ARBRE_Group, sNoeudParent + TAB +Group.Name1,aDéfaut,aDéfaut,Group.IDGroup,aTriAlpha,Group.Name1) 
  // Sauvegarde de la position en cours dans le parcours 
  nPosition = HSauvePosition(Group) 
  // On rempli les enfants de cette catégorie 
  ChargeGroup(Group.IDGroup, sNoeudParent + TAB + Group.Name1) 
  // Une fois, qu'on a rempli les enfants, on revient au parcours initial 
  HRetourPosition(nPosition) 
FIN
ArbreDérouleTout(ARBRE_Group)

Envoyer un SMS via VoipBuster

Posté le Par Publié dans Windev 
// Url
sUrlRequete = "https://www.voipbuster.com/myaccount/sendsms.php?"
// Paramètres Post
sParametrePost = ChaîneConstruit("username=%1&password=%2&from=%3&to=%4&text=%5", sSMS_Login, sSMS_Password, sExpéditeur, sDestinataire, sMessage )
// Requête
sToSend=sUrlRequete+sParametrePost
SI HTTPRequête(sToSend) = Faux ALORS
  gsResultatSMS =ErreurInfo()
SINON
  gsResultatSMS = HTMLVersTexte(HTTPDonneRésultat(httpRésultat))
  gsResultatSMS = Remplace(gsResultatSMS, Caract(34), "")
  SI ChaîneOccurrence(gsResultatSMS, "success 1") ALORS
    gsResultatSMS=""
  SINON
    gsResultatSMS="Echec"
  FIN
FIN

Plantage Aperçu avant impression

Posté le Par Publié dans Windev

Windev Webdev Astuces

Ce problème n’est pas nouveau, je l’ai rencontré dans toutes les versions de Windev depuis la version 12.
On peut s’affranchir du programme de prévisualisation en recourant à la solution suivante (5 lignes de code).

J’ai contourné l’aperçu avant impression en utilisant Acrobat Reader comme outil de prévisualisation. Depuis lors je n’ai plus aucun souci.

Voici un exemple de code :

// iPDFGénérique sert à éviter d'utiliser le driver de l'imprimante par défaut
// qui constitue peut être la cause du plantage
// lanceappliassociée() ouvre le fichier ainsi généré avec Acrobat
// Le document est alors parfaitement visualisable en Acrobat
LOCAL
  sFichierPdf est une chaîne =fRepExe()+"\Etats\"+DateHeureSys()+".pdf"
iDestination(iPDFGénérique,sFichierPdf)
iImprimeEtat(gsFactureNormale)
LanceAppliAssociée(sFichierPdf)
// that's all

Pour être tout à fait propre, on peut ajouter une procédure automatique pour purger de temps en temps les fichiers pdf générés dans le dossier fRepxe()+ »\Etats »

 

RDP Changer le port côté serveur

Posté le Par Publié dans Windows 7

Démarrez l’Éditeur du Registre.

Recherchez et cliquez sur la sous-clé de Registre suivante :

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp\PortNumber

Dans le menu Edition, cliquez sur Modifier, puis sur Décimale.

Tapez le nouveau numéro de port, puis cliquez sur OK.

Quittez l’Éditeur du Registre.

Redémarrez l’ordinateur.

RDP Changer le port côté client

Posté le Par Publié dans Windows 7

Pour changer le numéro de port auquel le client Bureau à distance se connecte, procédez comme suit :
Cliquez sur Démarrer, sur Tous les programmes, sur Accessoires, pointez sur Communications, puis cliquez sur Connexion Bureau à distance.
Dans la zone Ordinateur, tapez le nom d’ordinateur ou l’adresse IP de l’ordinateur auquel vous voulez vous connecter, suivi de deux-points (:) et le numéro de port à utiliser.

Par exemple, pour vous connecter au port 3390 sur un ordinateur qui est nommé « MyXPPro », tapez les informations suivantes : MyXPPro:3390
Pour vous connecter au port 3391 sur un ordinateur dont l’adresse IP est 10.10.10.1, tapez les informations suivantes : 10.10.10.1:3391

Cliquez sur Connexion.

Comment éteindre le PC rapidement ?

Posté le Par Publié dans Windows 7

Cliquez sur Démarrer -> Exécuter et tapez « regedit » pour accéder à la base de registre du système.

Dans HKEY_CURRENT_USER\Control Panel, cliquez sur le dossier Desktop.

Cliquez droit dans une zone vide du dossier (à droite de l’arborescence) et créez une valeur chaîne que vous nommerez « AutoEndTasks ».
Double-cliquez dessus pour lui attribuer la valeur 1 et redémarrer l’ordinateur.

Cette manipulation permet de fermer automatiquement tous les processus en cours donc ceux qui ne répondent pas sont automatiquement fermés et la fermeture de Windows gagne en rapidité.