آموزش ویژوال بیسیک و دانلود برنامه و دانلود موزیک و کانتر استریک

ماژول برای پیدا کردن فایل

Dim fi As String, Pa As String
Declare Function FindFirstFile Lib "kernel32" Alias _
"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData _
As WIN32_FIND_DATA) As Long

Declare Function FindNextFile Lib "kernel32" Alias _
"FindNextFileA" (ByVal hFindFile As Long, _
lpFindFileData As WIN32_FIND_DATA) As Long

Declare Function GetFileAttributes Lib "kernel32" Alias _
"GetFileAttributesA" (ByVal lpFileName As String) As Long

Declare Function FindClose Lib "kernel32" (ByVal hFindFile _
As Long) As Long

Public Const MAX_PATH = 260
Public Const MAXDWORD = &HFFFF
Public Const INVALID_HANDLE_VALUE = -1
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100

Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Type FS
FNN As String
Pathh As String
End Type

Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Public Function StripNulls(OriginalStr As String) As String

If (InStr(OriginalStr, Chr(0)) > 0) Then
OriginalStr = Left(OriginalStr, _
InStr(OriginalStr, Chr(0)) - 1)
End If

StripNulls = OriginalStr

End Function

Function FindFilesAPI(path As String, SearchStr As String, _
FileCount As Integer, DirCount As Integer)

Dim FileName As String ' Walking filename variable...
Dim DirName As String ' SubDirectory Name
Dim dirNames() As String ' Buffer for directory name entries
Dim nDir As Integer ' Number of directories in this path
Dim i As Integer ' For-loop counter...
Dim hSearch As Long ' Search Handle
Dim WFD As WIN32_FIND_DATA
Dim Cont As Integer

If Right(path, 1) <> "" Then path = path & ""

' Search for subdirectories.
nDir = 0

ReDim dirNames(nDir)

Cont = True

hSearch = FindFirstFile(path & "*", WFD)

If hSearch <> INVALID_HANDLE_VALUE Then
Do While Cont
DirName = StripNulls(WFD.cFileName)

' Ignore the current and encompassing directories.
If (DirName <> ".") And (DirName <> "..") Then

    ' Check for directory with bitwise comparison.
    If GetFileAttributes(path & DirName) And _
    FILE_ATTRIBUTE_DIRECTORY Then
      dirNames(nDir) = DirName
      DirCount = DirCount + 1
      nDir = nDir + 1
      ReDim Preserve dirNames(nDir)
    End If
End If

Cont = FindNextFile(hSearch, WFD) 'Get next subdirectory.

Loop
Cont = FindClose(hSearch)
End If

' Walk through this directory and sum file sizes.

hSearch = FindFirstFile(path & SearchStr, WFD)

Cont = True

If hSearch <> INVALID_HANDLE_VALUE Then
While Cont
FileName = StripNulls(WFD.cFileName)
If (FileName <> ".") And (FileName <> "..") Then
    FindFilesAPI = FindFilesAPI + (WFD.nFileSizeHigh * _
    MAXDWORD) + WFD.nFileSizeLow
    FileCount = FileCount + 1
fi = FileName
Pa = path
End If
Cont = FindNextFile(hSearch, WFD) ' Get next file
Wend
Cont = FindClose(hSearch)
End If

' If there are sub-directories...

If nDir > 0 Then
' Recursively walk into them...
For i = 0 To nDir - 1
FindFilesAPI = FindFilesAPI + FindFilesAPI(path & _
dirNames(i) & "", SearchStr, FileCount, DirCount)
Next i
End If

End Function

Function search(p As String, FN As String) As FS

Dim SearchPath As String, FindStr As String
Dim FileSize As Long
Dim NumFiles As Integer, NumDirs As Integer

Screen.MousePointer = vbHourglass

SearchPath = p
FindStr = FN
FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)

Screen.MousePointer = vbDefault
search.FNN = fi
search.Pathh = Pa
End Function

علی جمعه 30 آذر‌ماه سال 1386 ساعت 02:03 ق.ظ

0 نظر

هک

با سلام

دوستان یک برنامه می خواستم که بتونم به سرور های آنلاین مثل گیم و .... بتونم اتک بدهم و لگ بندازم تو سرور کسی می تونه به من کمک کنه ؟

nip_getright@yahoo.com

علی شنبه 24 آذر‌ماه سال 1386 ساعت 09:52 ب.ظ

1 نظر

همکاری در زمینه های برنامه نویسی

دوستانی که در زمینه ویژوال بیسیک و++c و ....... کار کرده اند

به من پی ام بدن

nip_getright@yahoo.com

علی شنبه 24 آذر‌ماه سال 1386 ساعت 09:49 ب.ظ

0 نظر

ًreflash & moster pack motorola v3x

Tutorial para fazer firmware:

1º PASSO:

- Ter Windows XP SP1 a correr no mínino (Adeus 98).
- Se tiveres o Mobile Phone...desinstala-o do pc.
- Configura no teu tele, o modo de conexão em USB Settings para Data mode ou ligação de dados.
- IMPORTANTE: AINDA NÃO CONHEÇO UMA MANEIRA EFICAZ DE SE FAZER BACKUP AO V3X , SE SOUBEREM FAÇAM! EU NÃO FIZ BACKUP, PORÉM É CERTEZA DE SUCESSO NESTA ATUALIZAÇÃO. FAÇAM POR CONTA E RISCO. TODO O PROCESSO É RÁPIDO E DESCOMPLICADO.

1.2º PASSO:

Backup V3x Faz backup ao teu telemóvel

2º PASSO:

Baixar o pack TOTAL do V3X hospedados no FW.

Pack TOTAL V3X

Link alternativo

Este arquivo de aproximandamente 50MB contém:

- Firmware:R252211LD_U_85.99.50R_LP0039_DRM0001_JPRU _R25221GENERIC_03_USRAZRV3XRURXXR2522100A_1FF
-Atualização do Microsoft FrameWork DOTNET
- Software RSD Lite (Usado para fazer o flash no V3X): removido do pack (pode ser usado o motokup tbem)
- Software LeaderGL Flex Editor (Melhor que todos os Softwares Pk2..tudo em um só programa!!!!)
-Drivers Pk2 Motorola_USB_Drivers 2.9 (Ultima Versão)
-Pacote com os arquivos em português do Obeymoto: R252211LD_U_VST_000A_Portuguese.rar
- Software P2kCommander-V3.3.0-Beta (tem que ser este!!)
- Arquivo Boot do volume (Aumenta tudo no celular): P2kCommander-V3.3.0-Beta.zip
- Arquivo WebSession (Vai configurar a operadora no seu celular..MMS, Internet etc.)

QUOTE(ACTUALIZAÇÃO)
Para V3x com Boot 0.6.8.3 UTILIZAR as seguintes firmwares, na ordem de MP e reflash

Monster Pack
R252211LD_U_85.9B.C0R_LP0039_R25221GENERIC_03_USRA ZRV3XDERTR25221006_1FF

Reflash
R252211LD-ORA_U_85.9B.E2P_reflash_mlp_mdrm_by_JM

3º PASSO::

Depois de fazer download do arquivo, extrai para uma pasta e instala na seguinte ordem.

- Microsoft FrameWork DOTNET
- Drivers Pk2 Motorola_USB_Drivers 2.9
- Software RSD Lite
- Software LeaderGL Flex Editor

Reinicia sempre o pc quando pede...
O P2kCommander, não é instalado, ele estará descompactado numa pasta mesmo

علی پنج‌شنبه 15 آذر‌ماه سال 1386 ساعت 04:47 ب.ظ

0 نظر

برای دانلود روی آهنگ مورد نظر کلیک راست کرده و گزینه ...Save Target Az را انتخاب کنید

نام آهنگ	128KB MP3	64KB MP3	OGG
Beliy Plaschik (Video Version)	دانلود	دانلود	دانلود
Beliy Plaschik(Album Version)	دانلود	دانلود	دانلود
Time Of The Moon	دانلود	دانلود	دانلود

علی چهارشنبه 14 آذر‌ماه سال 1386 ساعت 11:50 ب.ظ

0 نظر

نرم افزار دریافت تلویزیون از طریق GPRS برای UIQ۳

این نرم افزار بر روی گوشی های زیر تست شده است :
P990 , P1i , W950

دانلود - با حجم 155 کیلوبایت

پسورد : www.ir-tci.org ( به کوچک بودن تمام حروف دقت کنید )

علی دوشنبه 12 آذر‌ماه سال 1386 ساعت 01:08 ب.ظ

0 نظر

ip server cs online Game zone

Game zone public 85.9.68.10:27015

Game Zone Match server 85.9.68.10:27016

Game Zone public2 85.9.68.10:27010

SO$hiance Game 85.9.68.10:27012

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

http://www.sxe-injected.com.ar

4.3 رو از لینک بالا دانلود کنید

علی دوشنبه 12 آذر‌ماه سال 1386 ساعت 12:58 ب.ظ

2 نظر

movie counter strike

سایتی هست که Clip های CS رو داره. فقط باید اینترنت پرسرعت داشته باشین چون اکثر Clip هاش بالای 300mb هست! ولی خوب Clipهاش عالیه از همه نظر! بازی های دیگه هم دمو هاشونو داره ! اینم لینک سایت :
http://download.levitation-gaming.co...ad&fileid=2432

اینجا هم movie های خوبی داره http://youtube.com/watch?v=9oKzXFXfTp8&mode

علی دوشنبه 12 آذر‌ماه سال 1386 ساعت 12:55 ب.ظ

0 نظر

چند تا برنامه برای دانلود

شتاب دهنده ی دانلود

این برنامه رو میتونید از اینجا دانلود کنید

دانلود یاهو ۸

از اینجا دانلودش کنید

Google Instant Messenger

از اینجا میتونید دانلودش کنید .

trillian

اینجا دانلودش کنید

i-sounds

حتما تا حالا شده که شما بخواهید صداتون رو از طریق میکروفون ضبط کنید و وقتی که
با sound recorder خود ویندوز این کارو میکنید از کیفیت بد اون و از اون مهمتر وقت کم
اون ناراضی بودین ، i-sound اسم برنامه ایه که به شما اجازه میده صداهای داخل و
خارج از کامپیوتر خودتونو با فرمتهای WMA/OGG/APE/WAV/MP3 و با هر زمانی که
میخواهید ذخیره کنید .از ویژگی های دیگه ی این برنامه میشه از ضبط صدای Internet Radio
CD audio، radio , TV , CD Player و ... نام برد .
این برنامه رو میتونید از اینجا دانلود کنید .
form mailer

این هم یک برنامه عالی برای کسانی که سایت یا وبلاگ دارن شما به وسیله این برنامه
میتونید فرم نظر خواهی ، ارسال ، ارتباط با ما، فرم های سفارش و ... رو با این برنامه به
راحتی بسازید و اونا رو در وبتون قرار بدید تا اطلاعاتش به ایمیلتون ارسال بشه .
شما از طریق این اسکریپت می توانید ، محتویات هر فرمی را به راحتی و با کمترین معلومات
به صورتی جدول بندی شده به ایمیل خودتون ارسال کنید .

از اینجا دانلود کنید .

folder lock

اینم به سفارش آقا پویا یه برنامه برای قفل گذاری روی پوشه ها ، همون Folder Lock
معروف که قابلیت قفل گذاری روی پوشه ، برنامه ، عکس و ... رو داره و بجز قفل گذاری
میتونه اونا رو مخفی کنه و در مقابل ویروس و تروجان اونا رو محافظت کنه تفاوت این برنامه
با نرم افزارهای مشابه اینه که برنامه های دیگه اون فایل رو با دستکاری در همون ویندوز
از نظر کاربر مخفی یا غیر قابل دسترسی میکردند ولی این برنامه با دستکاری روی خود
فایل اون رو برای همه کسانی که رمز عبور اصلی رو ندارند ناخوانا میکنه یعنی عدم
دسترسی به فایل در حالت Safe Mode و.. این برنامه رو هیچ جوری نمیشه دور زد
و به فایلها دسترسی پیدا کرد مگر با داشتن پسوورد خود برنامه وفایل .این برنامه رو
میتونید از اینجا دانلود کنید .

تغییر صدا

سلام دوستان قبل از گذاشتن برنامه های امروز یکی دو مسئله هست که باید
بهتون بگم اول اینکه من به دلیل اینکه مثلا دارم برای کنکور میخونم تا مثل پارسال
ضایع نشم سعی دارم دیگه اینجا رو تا بعد از کنکور ۲ هفته یکبار آپدیت کنم .امیدوارم
که منو درک کنید. و مسئله دوم اینکه من از این به بعد میخواهم که کد های جاوا رو
هم به صورت در خواستی اینجا براتون بزارم پس اگه کدی لازم داشتین به من بگین
تا براتون اینجا بزارم. خب حالا میرسیم به دانلودهای امروز اولین برنامه که میخوام
بزارم اسمش هست voice changer اگر میخواهید که صدای خودتون رو تو چت
تغییر بدین مثلا پسرها با صدای دختر و دختر ها با صدای پسر در چت صحبت کنند یا
مثلا با صدای بچه یا پیرمرد ،حتما این برنامه رو دانلود کنید . البته این توضیحی که
خوندید من تو سایتهای دیگه دیدم ولی به نظر من کاربرد اصلی این برنامه تغییر صدای
آهنگ هایی هست که تو کامپیوتر شماتوسط وینمپ یا مدیا پلیر پخش میشه که اونها
رو به صورت خنده دار در میاره . دانلود خود برنامه دانلود کرک برنامه

منابع

www.takdownload.com

www.barname.blogsky.com

علی دوشنبه 30 بهمن‌ماه سال 1385 ساعت 01:08 ق.ظ

5 نظر