שלום,

יצרתי תוכנית קטנה שמשתמשת בתוכנית קיימת של WINDOWS XP/NT.
התוכנית הקיימת היא net.exe שמאפשרת לשלוח הודעות בין משתמשים ברשת LAN,
ומריצים אותה בחלון cmd (ממשק "דוס").
התוכנית שעשיתי ב VB משתמשת בפונקציה SHELL על מנת להריץ תוכנית חיצונית (במקרה שלי את net.exe עם כל הפרמטרים הדרושים).

דוגמא לשורה של net.exe :

קוד:

 net send gonen hello 

כאשר net היא התוכנית
send היא הפקודה שהתוכנית צריכה לבצע
gonen הוא שם המשתמש ברשת
hello היא ההודעה שיקבל המשתמש


לכן פקודת SHELL ב VB נראית כך:

קוד:

 shell ("net send gonen hello") 

במהלך שיכלול התוכנית, אני מעוניין שהתוכנית תדע לומר לי האם השליחה הצליחה.

אם אני כותב ב CMD את net.exe בצורה הבאה, אני כותב לקובץ error.log את הפלט:

קוד:

 net send gonen hello > error.log 

הפלט האפשרי הוא:
"the message was successfully sent to gonen"
או
"An error occurred while sending a message to DLKHDKLJGO"

הבעיה שלי היא שכאשר אני מריץ את SHELL בצורה הבאה:

קוד:

 shell ("net send gonen hello > error.log") 

ההודעה שהמשתמש מקבל היא:
hello > error.log
והתוצה אינה נכתבת לקובץ.

למישהו יש איזה רעיון איך אני יכול לממש את העניין ?
אולי איך/אם בכלל SHELL יודעת להחזיר את תוצאת הריצה של התוכנית (net מחזירה 0 בתור הצלחה) ?

תודה

[ זיו ]
[ fat fish ]

שאלה טובה...

איך בדיוק אני יכול לבצע את זה לבד ??? כנראה אני צריך קצת יותר (ואולי הרבה יותר)
ידע וניסיון, הן ב VB, הן בתכנות תחת WIN והן בתיכנות לרשתות...

כמובן שאשמח לקבל כיוונים, הצעות, קישורים, דוגמאות וכל מה שיוכל לעזור...

תודה

הדרך הכי טובה לדעתי היא להשתמש בAPI של WINSOCK אבל אם אתה לא רוצה להסתבך יש גם פקד WINSOCK

תוכנת net.exe המאפשרת בין השאר דברים כמו שליחת הודעות (net send) והפעלת/הפסקת שירותים (net start/stop) משתמשת בקובץ DLL שנקרא netapi32.dll. לקובץ הזה יש ממשק API המאפשר שימוש דרך תוכנות חיצוניות.

הפונקציה שאתה צריך נקראית NetMessageBufferSend, והיא זאת שיכולה לשלוח הודעות.

הנה דוגמא: http://www.computerbb.org/about314.html

בהצלחה.

אבל,
אני כתבתי ב VB, וההתייחסות ב MSDN היא ל WIN32/COM, מה אני אמור לעשות כדי להתאים לצרכיי ?
אני לא יודע איך לכלול את ה DLL בתוכנית שלי על מנת להשתמש בפונק'.
ניסיתי להוסיף את ה DLL ב REFERENCE לאחר שראיתי שאינו נמצא שם, אך הוא לא נותן לי להוסיף אותו,
גם אין לי את קובץ ה LIB של אותו DLL (צריך את זה בכלל ? זה מקביל לקובץ header ב C/C++ ?)

ד"א, עד כה כמעט ולא מצאתי הסברים נוחים ויעילים ב MSDN (בלי שום קשר לבעיה זו).

אם אפשר הכוונה לאיך אני אמור להמשיך מכאן ? איך להגדיר בתוכנית שלי להשתמש ב DLL הנ"ל ?

הנה עוד דוגמא בויזואל בייסיק: http://www.mentalis.org/apilist/Net...ufferSend.shtml
בעקרון, זה כל מה שצריך לעשות:

קוד:

 

Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" (yServer As Any, yToName As Byte, yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long

אני מחפש הרבה זמן איך לעשות הרצה של תוכנית בVB מתוך הCMD כמו הnet send שלך והרבה יישומים. יש לך אפשרות לשלוח את הקוד לזה?

shell commandline as string
הפונקציה מחזירה את ה hwnd של החלון החדש =]

קוד:

shell ("c:\windows\notepad.exe")

הדוגמא הנ"ל פשוט תריץ את notepad


היות ואתה מעוניין בתוכניות שמופעלות ב CMD:

קוד:

 
shell ("c:\windows\system32\ftp.exe")

תריץ את ftp.exe בחלון cmd.

בנוסף באפשרותך, להוסיף בתוך הסוגריים "," ולאחריו מספר המייצג את אופן פתיחת החלון
(hide, normalfocus, maximized, minimized ויש עוד אחד שאני לא זוכר כרגע.)

כמו שאמר קודמי - הפונק' מחזירה ערך מסויים (עדיין לא הבנתי מה הוא נותן ומה אני צריך אותו).

כאשר השתמשתי בפרמטר הקובע לי איך החלון יוצג, הוכרחתי ע"י VB להכניס למשתנה את הערך החזרה של הפונק'. כאשר שמתי את פקודת SHELL כמו בדוגמאות הנ"ל לא הייתי חייב להתייחס לערך החזרה.

אני מתכוון לזה שהתוכנה תקבל את המילה המופיעה אחר כך כמו SEND שלך.
איפה אני מתחיל עם זה?

הנה הקוד מהגירסא הישנה של מה שעשיתי (כשהשתמשתי ב SHELL):

קוד:

 
Private Sub Command1_Click()
Dim s As String
Dim user As String
Combo1.SetFocus
user = Combo1.Text
s = "c:\windows\system32\net.exe send " + user + " " + Text1.Text
Shell (s)
End Sub
 

מקווה שזה מספיק ברור...