Foro | | | | | | - Página 1 - |
| 
Penguin
Tux | ¡Hola,
Yo möchte mich ersteinmal vorstellen. Mein Name es Tony, Yo bin 15 Jahre alt y besuche una Realschule en Chemnitz. Desde que ahora Sommerferien habe y yo nichts más a tun habe, Yo me vorgenommen una kleines Netzwerkanalysetool a escribir. Auf el búsqueda después de uno einfachen Lenguaje de programación bin I XProfan gestoßen.
Yo habe alles nötige gedownloaded y installiert, anschließen Yo una Pingcode gesucht y habe esta:
declarar pingstring$,ping$,ping%
********************************************************************
Proc Ping
Parámetros nic$,pingdatei1$,pingdatei2$
let pingstring$="PING.EXE",nic$,">",pingdatei1$
Asignar #6,pingdatei2$
Rewrite #6
Imprimir #6,pingstring$
Cerrar #6
WinExecwait(pingdatei2$,0)
Asignar #5,pingdatei2$
Borrar #5
ASSIGN #3,pingdatei1$
RESET #3
Ping%=0
WHILENOT EOF(#3)
input #3,ping$
ping$=mid$(ping$,1,11)
caso equ$(ping$,"Antwort von"):Ping%=1
WEND
CLOSE #3
Asignar #1,pingdatei1$
Borrar #1
ENDPROC
********************************************************************
Descripción:
Lo son zwar ya una schnelle y schöne Onlineabfrage über API,
aber desafortunadamente son el Función sólo 1 para Online zurück, si
uno über una Standart DFÜ eingewählt es.
Diese Procedimiento es sólo sólo algo langsamer aber uno kann incluso DSL
(also - no DFÜ-Verbindung) oder el alte T-Online u.s.w abfragen!!
alles con una Stern umrandete es wichtig para el Abfrage
Rolf Koch - Rokosoftware - Koblenz 2002
BEISPIEL
WINDOWSTYLE 31
Ventana 200,200-300,80
Windowtitle "Onlinstatus-Prüfung sin Api"
Color del texto RGB(0,0,255),-1
UseFont "TIMES NEW ROMAN",20,10,0,0,0
DRAWTEXT 40,10,"..moment ermittele!"
HIER JETZT DER AUFRUF DER PROZEDUR:********************
PING ADRESSE,ERGEBNISDATEI,BATCHDATEI
Parámetro
1.) Webadresse - una siempre vorhandene como www.nic.de
2.) Dateiname, en welche Pingergebnis geschrieben se - se otra vez gelöscht!
3.) Dateiname, en Ping korrekt aufzurufen. - se otra vez gelöscht!
********************************************************
Color del texto RGB(255,255,255),RGB(255,255,255)
DRAWTEXT 40,10," "
UseFont "TIMES NEW ROMAN",25,20,1,0,0
Color del texto RGB(0,0,255),-1
Ping "192.168.0.7","PINGTEST.TXT","PING.BAT"
if equ(ping%,1)
DRAWTEXT 25,10,"Erreichbar"
más
DRAWTEXT 25,10,"Nicht erreichbar"
endif
waitinput
Diesen Code Yo me después de media Bedürfnissen zurechtgeschnitten y él sieht como folgt de. Dazu debería Yo el de me ausgedachte Funktionsweise erklären.
Es geplant, dass Yo una Tool escribir, welches möglichst simplemente una erste Ayuda para Schüler y Lehrer bietet. Bemerkt una User el él no Internetzugang ha, führt él el Tool de, welches el Reihe después de sólo el Server anpingt, entonces una otro Client en el Netzwerk y luego todavía una Rechner de außerhalb (z.B. Google). Wenn lo en uno el Schritte no Rückmeldung son, se una Meldung con Tips a Behebung en el Bildschrim erscheinen.
Nun para Code:
declarar pingstring$,ping$,ping%
Proc Ping
Parámetros nic$,pingdatei1$,pingdatei2$
let pingstring$="PING.EXE",nic$,">",pingdatei1$
Asignar #6,pingdatei2$
Rewrite #6
Imprimir #6,pingstring$
Cerrar #6
WinExecwait(pingdatei2$,0)
Asignar #5,pingdatei2$
Borrar #5
ASSIGN #3,pingdatei1$
RESET #3
Ping%=0
WHILENOT EOF(#3)
input #3,ping$
ping$=mid$(ping$,1,11)
caso equ$(ping$,"Antwort von"):Ping%=1
WEND
CLOSE #3
Asignar #1,pingdatei1$
Borrar #1
ENDPROC
WINDOWSTYLE 31
Ventana 200,200-500,80
Windowtitle "Onlinstatus-Prüfung sin Api"
Color del texto RGB(0,0,255),-1
UseFont "TIMES NEW ROMAN",20,10,0,0,0
DRAWTEXT 40,10,"..moment ermittele!"
Color del texto RGB(255,255,255),RGB(255,255,255)
DRAWTEXT 40,10," "
UseFont "CANDARA",25,20,1,0,0
Ping "127.0.0.1","PINGTEST.TXT","PING.BAT"
if equ(ping%,1)
Color del texto RGB(0,255,0),-1
DRAWTEXT 25,10,"Server Erreichbar"
más
Color del texto RGB(255,0,0),-1
DRAWTEXT 25,10,"Server No erreichbar"
endif
Ping "192.168.0.1","PINGTEST.TXT","PING.BAT"
if equ(ping%,1)
Color del texto RGB(0,255,0),-1
DRAWTEXT 25,10,"Client Erreichbar"
más
Color del texto RGB(255,0,0),-1
DRAWTEXT 25,10,"Client No erreichbar"
endif
Ping "www.google.de","PINGTEST.TXT","PING.BAT"
if equ(ping%,1)
Color del texto RGB(0,255,0),-1
DRAWTEXT 25,10,"Google Erreichbar"
más
Color del texto RGB(255,0,0),-1
DRAWTEXT 25,10,"Google No erreichbar"
endif
waitinput
Ein Problema, welches se a Tiempo auftut, Es el Tatsache el el Fensterinhalt no gelöcht se. Das heißt el "Server Erreichbar", "Client Erreichbar" y "Google Erreichbar" übereinander geschrieben voluntad, also brauche Yo una Möglichkeit el Inhalt la ventana después de cada Schritt a löschen. Dabei bin en
gestoßen. Nutze Yo esta Möglichkeit antes o. después de "Server Erreichbar" se "Server Erreichbar" nada adecuado.
Für una kleine Hilfestellung wäre Yo muy dankbar.
Gracias
Tony |
| | | | | | |
| | | | | | - Página 7 - |
| |
Penguin
Tux | | Yo habe ahora veces "Def @Hide(1) @ShowWindow(@&(1), 0)" en el más bereich geschrieben y detrás de él entonces el código para el Ventana geschrieben. Das Ventana erscheint zwar, aber el Texto de el Pingfenster kopiert lo con en el Hilfefenster |
| | | | | | |
| | 
Rolf
Koch | Yo Por favor, Usted! Lese esta ganzen Hilo de vorne a hinten por!
Yo schrieb ausführlich qué a DEF y Showwindow!
So kommen wir en no grünen Zweig.
Sezte ahora otra vez Su kmpl. Code hier hin y warte a él mejorado wurde - Usted hörst por desgracia, no el qué Usted geschrieben se. No böse gemeint, pero si wir Tipps geben, Por favor, auch lo aprender. OK? |
| | | | | | |
| |
Penguin
Tux | | Stimmt, du hast bastante. Yo voluntad heute eh algo länger en bleiben. como va el. |
| | | | | | |
| | 
Jörg
Sellmeyer | | Außerdem solltest Usted Usted el Kurse en el Profanhilfe ansehen, y versuchen el Struktur a verstehen, el así una Programa ha. |
| | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 21.07.2008 ▲ |
| | |
| |  | Jörg Sellmeyer
Jörg Sellmeyererstellst du also eins
a%=createText(...
musst Usted lo antes el Programmende auch otra vez
Das halte Yo aber para una Gerücht! Si el Elternfenster destruido reicht el völlig...
Tuve lo simple sólo absichtlich no es igual "so" erwähnt. Grundsätzlich debería uno siempre daran denken, Dinge, welche uno producido, auch otra vez a freizugeben, besonders entonces, si esta sólo "geborgt" son.  (unabhängig su el Windows una el abnimmt y z.B. "wild" con wm_destroy umsich wirft... *g*) |
| | | | | | |
| | 
Dietmar
Horn | ¡Hola P(i/e)nguin,
Lade Usted para el Anfang tal vez simplemente veces media XProfan-Manager de el Descargar-Zona unserer Vereins-Homepage runter [...] 
Gerade para XProfan-Principiante (auch todavía a runter a aktuellen Freeware-Versión Profano² 6.6) scheint el una wahre XProfan-Fundgrube a ser, como me mi XProfan-Schüler siempre otra vez bestätigen. Neben -zig Tools, DLL, PCUs, INCs, Quellcode-Helfern y encima 2000 Demo-Quellcodes findest Usted en diesem Manager así fast bastante alles, qué lo aktuell en el XProfan-Szene son. Und incluso mehrere Einführungskurse (una incluso de meiner Feder - si auch ya algo älter y evtl. ligeramente veraltet).
Saludo
Dietmar |
| | | | Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...] Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 21.07.2008 ▲ |
| | |
| |
Penguin
Tux | | Yo me ahora veces euren XPM gedownloaded, de wem bekomme Yo ahora el Contraseña? Falls Yo de dir bekomme, wäre Yo muy dankbar si du me una Nachricht escribir würdest. |
| | | | | | |
| |
Dietmar
Horn | PM con XPM-PWD de me müßte con usted inzwischen angekommen ser.
Saludo
Dietmar |
| | | | Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...] Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 22.07.2008 ▲ |
| | |
| |
Penguin
Tux | Ok, Der XPM es installiert y yo bin gerade esta bich veces bisschen en a sehen.
Zu el real Problema.
Yo habe me ahora nocheinmal Rolfs Posts durchgelesen y komme immernoch sólo así weit, el el Ventana zwar erscheint, pero la Texto vom Ergebnissfenster es en el Hilfefesnter y el es sí no Sinn. |
| | | | | | |
| |
Rolf
Koch | Ok, entonces her con su kmpl. Code en veces a schauen. Yo gehe su de, dass Usted otra vez el Handles verwechselst.
1x %hwnd y 1x Dlg&. |
| | | | | | |
| |
Penguin
Tux | Hier sólo una Schnipsel [...]
Yo habe me gerade una vez más el Artikel a %hWnd angeguckt y habe gemerkt, el Yo %hWnd nada al anfang declariert habe. Also muss Yo el todavía en el Declarar Teil escribir y luego antes el Befehl para abierto des Hauptfensters - correcto? |
| | | | | | |
| |
Rolf
Koch | Nagut bisschen geändert:
KompilierenMarcaSeparacióndeclare pingstring$, ping$, ping%
Proc Ping
Parameters nic$,pingdatei1$,pingdatei2$
let pingstring$="PING.EXE",nic$,">",pingdatei1$
Assign #6,pingdatei2$
Rewrite #6
Print #6,pingstring$
Close #6
WinExecwait(pingdatei2$,0)
Assign #5,pingdatei2$
Erase #5
ASSIGN #3,pingdatei1$
RESET #3
Ping%=0
WHILENOT EOF(#3)
input #3,ping$
ping$=mid$(ping$,1,11)
case ping$="Antwort von":Ping%=1
WEND
CLOSE #3
Assign #1,pingdatei1$
Erase #1
EndProc
WINDOWSTYLE 31
Window 200,200-500,180
Windowtitle "PiRePro by penguin"
TextColor RGB(0,0,255),-1
UseFont "TIMES NEW ROMAN",20,10,0,0,0
DRAWTEXT 40,10,"..moment ermittele!"
TextColor RGB(255,255,255),RGB(255,255,255)
DRAWTEXT 40,10," "
UseFont "CANDARA",25,20,1,0,0
Ping "127.0.0.1","PINGTEST.TXT","PING.BAT"
if ping%=1
TextColor RGB(0,255,0),-1
DRAWTEXT 25,10,"Server Erreichbar"
waitinput
else
TextColor RGB(255,0,0),-1
DRAWTEXT 25,10,"Server Nicht erreichbar" wird ja auf dem Hauptfenster angezeigt!
Du kannst ja auch nur ein Hauptfenster haben mit WINDOW x,x-y,y
also hier ein createdialog oder createwindow als Unterfenster (Kindfenster)
Declare btndlg&,dlgende%,dlg&
dlg&=Create("Window",%hwnd,"Hilfe",10,10,500,400)
btnDlg& = CreateButton(dlg&,"OK",10,10,120,30)
WhileNot dlgende%
WaitInput
If GetFocus(btnDlg&)
dlgende% = 1
EndIf
Endwhile
endif
waitinput lieber oben en ping%=1
Und NEIN %hwnd musst No declarieren, porque % es antes el String hwnd - es also una feste Variable de Profano incluso! Sonst sería lo hwnd% lauten 
Also sólo una Ventana principal con %hwnd y Kindfenster por create("DIÁLOGO"... oder create("WINDOW".... (siehe Ayuda) redactar! |
| | | | | | |
|
RespuestaTema opciones | 23.763 Views |
ThemeninformationenDieses Thema ha 9 subscriber: |
(267)
Deutsch
English
Français
Español
Italia