// Module : EnvoiSMS
// Fonction pour envoyer un SMS
PROCEDURE EnvoyerSMS(sDestinataire est une chaîne, sMessage est une chaîne)
// Déclaration des variables cSMSProvider est un httpRequêtesURL est une chaîne
// Configuration du fournisseur SMS (exemple avec Twilio)
sURL = "https://api.twilio.com/2010-04-01/Accounts/VOTRE_COMPTE_SID/Messages.json"
cSMSProvider..URL = sURL
cSMSProvider..Utilisateur = "VOTRE_COMPTE_SID"
cSMSProvider..MotDePasse = "VOTRE_AUTH_TOKEN"
// Préparation des données à envoyer
cSMSProvider..Paramètre["To"] = sDestinataire
cSMSProvider..Paramètre["From"] = "VOTRE_NUMERO_TWILIO"
cSMSProvider..Paramètre["Body"] = sMessage
// Envoi de la requête
SI HTTPEnvoie(cSMSProvider) ALORS
SI cSMSProvider..CodeEtat = 200 OU cSMSProvider..CodeEtat = 201 ALORS
Info("SMS envoyé avec succès")
SINON
Erreur("Échec de l'envoi du SMS. Code d'erreur : " + cSMSProvider..CodeEtat)
FIN
SINON
Erreur("Erreur lors de l'envoi de la requête HTTP")
FIN
FIN
Archives par catégorie : Divers
Connaître le mot de passe wifi
Commandes:
cmd
netsh
wlan show profile
wlan show profile "wifi name" key=clear
Sites Google
Raccourci vers différentes fonctionnalités Google
A propos de ce site
Ce site reprend différentes procédures ou routines récurrentes lors des développements en Windev. Elle est le résultat du travail de nombreux informaticiens notamment les membres du forum des développeurs windev-forum@listes.arvalis.net que je remercie ici tout particulièrement. N’hésitez pas à nous écrire afin d’apporter votre contribution ou nous proposer des améliorations.
Exporter une requête en Excel
Procedure RequêteVersExcel(sdMaRequete est une Source de Données,sCheminFichierExcel est une chaîne)
xlsExport est un xlsDocument
xlsAjouteFeuille(xlsExport,"Feuille 1")
xlsFeuilleEnCours(xlsExport,1)
sRubriques est une chaîne = HListeRubrique(sdMaRequete)
POUR TOUTE CHAINE sRub,nPos,nColonne DE sRubriques SEPAREE PAR RC
xlsExport[nColonne,1] = sRub
FIN
nLigne est un entier = 2
POUR TOUTE sdMaRequete
POUR TOUTE CHAINE sRub,nPos,nColonne DE sRubriques SEPAREE PAR RC
xlsExport[nLigne,nColonne] = {sdMaRequete..Nom+"."+sRub,indrubrique}
FIN
nLigne ++
FIN
xlsSauve(xlsExport,sCheminFichierExcel
Protéger un document word et permettre seulement la saisie des zones du formulaire (macro Word)
Sub Protection()
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:="123"
End Sub
Windev – Hajoute avec un id automatique crée un doublon
Il suffit de renouveler le dernier identifiant automatique :
HLitDernier(Véhicules,IDVéhicules)
HModifie(Véhicules,hNumEnrEnCours,hFixeIdAuto)
Google Documents est à votre écoute
Le traitement de texte Google Doc en ligne bénéficie maintenant d’un système de reconnaissance vocale. Dictez votre texte au lieu de le taper au clavier. Le système développé par Google est très fiable. La reconnaissance est rapide et pratiquement sans faute.
Vous pouvez dicter votre texte en Français. Quarante langues sont supportées. Ce qui impressionne ici c’est l’efficacité de l’outil sur de longues phrases. Difficile de prendre le système en défaut.
Pour utiliser cette nouvelle fonction de Google Docs, il suffit de créer un nouveau document puis dans le menu Outils sélectionner « Saisie vocale ». Un micro va s’afficher à droite de votre fenêtre. En cliquant dessus, celui-ci passe au rouge et vous pouvez commencer la dictée.
Modifier un champ en haut de rupture
Pour mettre à jour un champ figurant dans le haut de rupture d’une table mémoire
TableTrie(TABLE,"+COL_Prestataire","+COL_Client") TableAffiche(TABLE,taCourantBandeau) POUR TOUTE LIGNE nLigne DE TABLE nIndice = TableIndiceRupture(RUPT_HautRupture1,nLigne) TABLE[nIndice].SAI_Prestataire = TABLE.COL_Prestataire[nLigne] FIN TableAffiche(TABLE,taCourantBandeau)
Se désinscrire définitivement de Facebook
Pour une suppression complète et définitive du compte. allez à l’adresse suivante : https://www.facebook.com/help/delete_account
puis suivez les étapes.