נושא: שלוש שאלות שונות בויזואל בייסיק

נשלח בתאריך: 26 March 2006 בשעה 23:33 | IP רשוּם

1 כיצד אפשר לעשות שהתוכנה תהיה מוגבלת לזמן מסויים או ליתר דיוק כיצד יכולה התוכנה לדעת שעבר הזמן המוקצב והתוכנה תנעל?

2שאלתי שאלה זו בעבר וענו לי שאני אחפש בDASN אבל הכל היה שם באנגלית ולא מצאתי תשובה מדוייקת לכן אם אפשר וזה לא מטריח את העונים אפשר לכתוב לי את הקוד של שליחת קבצים וקבלתם דרך סוקטים פקודת SEND ו PUT ? כבר כתבתי תוכנה כזאת בעבר שם הקובץ היה נשלח וגם סוג הקובץ וגם מתקבל אבל התוכן הבינארי של הקובץ לא היה מתקבל ( אם ירצו אני אכתוב כאן את הקוד בכדי שיתקנו ) בדקתי כבר והורדתי מאתרים קודי תוכנות של העניין הזה אבל לא הבנתי בדיוק את פקודת שליחת הקוד הבנארי?

3 האם אפשר לשלוח מידע דרך שתי סוקטיםה מטרה היא להאיץ את קבלת הקובץ ?

תודה מראש לכל העונים ואתכם הסליחה...

נשלח בתאריך: 30 March 2006 בשעה 20:25 | IP רשוּם

הראשון- תשמור\תצפין את התאריך הראשון הריג'סט ותבתדוק

2 . את התשובה אתה יכול למצוא בקודי המקור של dr-vb (תחפש "תמונה") וזה ימצא הורדת תמונה מהאינרנט.. ותראה

השלישי - אין לי מושג, לא ניראה לי!

נשלח בתאריך: 02 April 2006 בשעה 22:43 | IP רשוּם

לגיל אני לא כל כך הבנתי מה התכוונת בתשובה לשאלה הראשונה אם תוכל לפרט יותר

ועל השאלה השניה אני לא ניסיתי בגלל שאחרי שאני בוחר קובץ ורוצה לשלוח אותו דרך הוינסוק המחשב מעלה לי שגיאה כך

RUN-TIME ERROR 40006

 WRONG PROTOCOL OR CONNECTION STATE FOR THE REQUESTED TRANSACTION OR REQUEST

אני לא יודע למה השגיאה הזאת מופיעה משהוא יכול לעזור לי???

וכן תודה לך Fate ולכל העוזרים

נשלח בתאריך: 10 April 2006 בשעה 20:46 | IP רשוּם

חבר'ה ניסית והצלחתי לחבר ללא שום שגיאה אבל בעיה אחת קטנה הקובץ מועבר דרך הסוקט זאת אומרת סוג הקובץ אבל לדוגמה אם העברת קובץ מסוג TXT הוא מעביר אותו רק 4 קילו בייט בלבד ולא כותב את תוכן הקובץ ובעיה זו של ה4 קילו בייט היא בכל סוגי הקבצים כיצד אני פוטר בעיה זו?

זה קוד התוכנית הצריך לשאלות

Private Sub Command2_Click()
    With CommonDialog1
        .CancelError = True
        .DialogTitle = "שלח קובץ לחבר"
        .Filter = "All files *.* | *.*"
        .ShowOpen
        A = .FileName
        B = FileLen(CommonDialog1.FileName)
        Winsock2.SendData A
    End With
        Open A For Binary Access Write As #1   'פתיחת הקובץ לקריאה בינארית
        Put #1, , D
        Close #1
        Winsock3.SendData D
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData X
End Su

Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)
Dim R As Long
Winsock4.GetData R
    With CommonDialog1
        .CancelError = True
        .DialogTitle = "שלח קובץ לחבר"
        .Filter = "All files *.* | *.*"
        .ShowSave
        X = .FileName
        End With
Open X For Binary Access Write As #1  'פתיחת הקובץ לקריאה בינארית
Put #1, , R
Close #1
Close
MsgBox "הקובץ הועבר בהצלחה"
End Sub

תודה מראש לעונים ולעוזרים

נשלח בתאריך: 14 April 2006 בשעה 16:05 | IP רשוּם

חבר'ה זה שוב אני הכל עובד בצורה חלקה הקובץ עובר רק שוב נוצרת בעיה חדשה  שבקובץ גדול הוא נתקע ולוקח למחשב הרבה זמן כדי לכתוב את המידע הבנארי לתוך המשתנה ( אני מדבר על קובץ בגודל 17 מגה )

יש לי תוכנה שהורדתי מהאתר של דוקטור ויבי ( תוכנה של מוריוס שאמה ) ושם יש את כל הקוד שאני צריך אבל מרוב דובים לא רואים את היער אני לא יודע בדיוק איך וכיצד זה פועל התוכנה נקראת ChatProgram בבקשה תעזרו זה דחוף לי מאוד מאוד  

תודה רבה גדולה מאוד לכל העוזרים

ממני איתמר המחכה בכליון עיניים 

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

Dim s As String
Open A For Binary As #1
s = Space$(LOF(1))
Get #1, , s
Close #1

אם יש למישהוא רעיון אחר ועובד טוב אני אשמח לשמוע