آرشیو برای آبان, ۱۳۸۴

MainBoard

مادربورد سیستم شرکت سوخت . چند تا پروژه را باید تموم می کردم سیستم خونه را آوردم شرکت اونم مادربوردش مشکل پیدا کرد بد شانسی پشت بد شانسی البته سیستم شرکت را یک جوری راه انداختم .


در ضمن تا چند روز دیگه هم یک کاری می کنم که بتونم توسط sms تو وبلاگ پست کنم تا نیازی به کامپیوتر نباشه

افسردگی

فقط اینو می تونم بگم اوضاع روحیم خیلی خرابه و فعلا دپرسم !!!

کوته پیام رایگان

از این سایت می تونید به همه جهان sms بزنید . نکته جالبش اینه که می تونید از هر شماره ای که دوست دارید پیام را ارسال کنید !!! خیلی حال می ده !

بچه ها متشکریم !!!


دلیل مشکلات شبکه اس ام اس طی روزهای اخیر اعلام شد


امروز باید ۱۰۰ تا sms تبلیغاتی می فرستادیم که با اطمینان کامل می تونم بگم که از ۲ تا ارسال شده یدونه می رسید و دومی معلوم نبود کجا می رفت !!! گوشی هم خاموش بود کلا بیخیال میشد !!!خلاصه سلام و درود به شرکت ارتباطات سیارمخابرات به خاطر این سرویس دهی عالی

Mobile


WAP یاهو  , google sms , google mobile search ! مثل همیشه ساده و جالب !

ویروس و کوه

پنجشنبه فقط داشتم ویندوز نصب می کردم چون ویروس داشت سیستم و همش CPU داشت ۱۰۰% کار می کرد امروز جمعه هم زدم از دسته این کامپیوتر به کوه و بیابون !!!

WebClient

خیلی وقت ها می توان از قسمتی از سایت های دیگر استفاده کرد و در سایت خود بهره برد !!! مثل هوا شناسی ، whois و….


کد زیر قسمتی از سایت مورد نظر را توسط دو تگ اولی و آخری انتخاب و در label نمایش می دهد


با دستور replace هم می توانید قسمت جدا شده را برای خود کاملا customize نمایید


Imports System.Net


Dim firstLevelbufData As String


Dim strURL As String = http://www.yahoo.com


Dim web As New WebClient


Dim bufData As Byte()


bufData = web.DownloadData(strURL)


firstLevelbufData = Encoding.Default.GetString(bufData)


‘ entekhabe ghesmate morede nazar az first ta laste


Dim first, last As String


first = “tag avval”


last = “tag akhar”


Dim RE As New Regex(first + “(?.*?(?=” + last + “))”, RegexOptions.IgnoreCase Or RegexOptions.Singleline)


Dim m As Match = RE.Match(firstLevelbufData)


txtResult.Text += m.Groups(“MYDATA”).Value