לוגו אתר Fresh          
 
 
  אפשרות תפריט  ראשי     אפשרות תפריט  צ'אט     אפשרות תפריט  מבזקים     אפשרות תפריט  צור קשר     חץ שמאלה חץ ימינה  

לך אחורה   לובי הפורומים > מחשבים > מערכות הפעלה
שמור לעצמך קישור לדף זה באתרי שמירת קישורים חברתיים
תגובה
 
כלי אשכול חפש באשכול זה



  #10  
ישן 30-01-2007, 20:13
צלמית המשתמש של The IceMan
  The IceMan מנהל The IceMan אינו מחובר  
\dev\null
 
חבר מתאריך: 08.11.02
הודעות: 11,379
מקווה שזה יעזור
בתגובה להודעה מספר 9 שנכתבה על ידי zivk שמתחילה ב "[QUOTE][size=3]יש לי מחשבים..."

איך התיכנות שלך ?

מצאתי דרך נחמדה לפתור את הבעיה שלך
אבל היא דורשת טיפה תיכנות ברמת הבנת תיכנות ו-העתק הדבק

דבר ראשון תמצא בלינק הבא
תוכנה ב-VB.NET שמזהה אם הכבל מחובר או מנותק

עידכון: מצאתי גם קוד בכלל לנושא

קוד:
Private Sub MyApplication_NetworkAvailabilityChanged(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEven tArgs) Handles Me.NetworkAvailabilityChanged Trace.WriteLine(e.IsNetworkAvailable) End Sub

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

קוד:
If My.Computer.Network.Ping("www.google.com", 1000) Then MsgBox("Server pinged successfully.") Else MsgBox("Ping request timed out.") End If

------------------------------

יופי אז זיהנו את ההתחברות ואנחנו נמצאים ברשת המשרדית
מה הלאה?

גיבוי ?
אז קודם נוודא שלא ביצענו גיבוי היום ,
(אני משאיר לך את הקטע שבוא אתה מגדיר את הפורמט של השמות של הגיבוי)
נגיד והשמות בנוים בפורמט הבא... YYYY-MM-DD-USERNAME
לדוגמא:
קוד:
2007-01-01-DEMO


נבדוק את המצאות הקובץ ע"י הפונקציה הבא:

קוד:
Imports System.IO Public Function FileExists(ByVal FileFullPath As String) _ As Boolean Dim f As New IO.FileInfo(FileFullPath) Return f.Exists End Function Public Function FolderExists(ByVal FolderPath As String) _ As Boolean Dim f As New IO.DirectoryInfo(FolderPath) Return f.Exists End Function


ולפי זה אנחנו נבחר אם להעלות את התיקיה 1:1 או לכווץ ולשלוח לשרת ע"י הפקודות הבאות

קוד:
My.Computer.Network.DownloadFile _ ("http://www.google.com/downloads/SomeFile.txt", _ "C:\Documents\SomeFile.txt") My.Computer.Network.UploadFile( _ "C:\Documents\SomeFile.txt", _ "http://www.google.com/uploads/")


תוכל להריץ את RAR או תוכנת כיווץ אחרת ע"י הפקודה SHELL

קוד:
returnID = Shell("c:\somepath\somefile.txt", _ vbNormalFocus)


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

זהו נראה לי

מקורות (כל האומר דבר בשם אומרו מביא גאולה לעולום) :
----------------------------
  1. http://forums.ni.com/ni/board/messa...ssage.id=184494
  2. http://forums.ni.com/ni/board/messa...=174449#M174449
  3. http://www.gotdotnet.com/Community/...e0-e412ad85bf98
  4. http://www.freevbcode.com/ShowCode.asp?ID=4835
  5. http://www.devx.com/dotnet/Article/7914




תגובה ללא ציטוט תגובה עם ציטוט חזרה לפורום
תגובה

כלי אשכול חפש באשכול זה
חפש באשכול זה:

חיפוש מתקדם
מצבי תצוגה דרג אשכול זה
דרג אשכול זה:

מזער את תיבת המידע אפשרויות משלוח הודעות
אתה לא יכול לפתוח אשכולות חדשים
אתה לא יכול להגיב לאשכולות
אתה לא יכול לצרף קבצים
אתה לא יכול לערוך את ההודעות שלך

קוד vB פעיל
קוד [IMG] פעיל
קוד HTML כבוי
מעבר לפורום



כל הזמנים המוצגים בדף זה הם לפי איזור זמן GMT +2. השעה כעת היא 09:56

הדף נוצר ב 0.05 שניות עם 12 שאילתות

הפורום מבוסס על vBulletin, גירסא 3.0.6
כל הזכויות לתוכנת הפורומים שמורות © 2024 - 2000 לחברת Jelsoft Enterprises.
כל הזכויות שמורות ל Fresh.co.il ©

צור קשר | תקנון האתר