!@#$

با سلام به تمامی دوستان و عزیزان

چند تا سایت واسه آپلود کردن میخوام

و هر کی وی بی کار کرده به آی دی من پی ام بده !

[e-mail]

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

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

هک

با سلام

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

[e-mail]

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

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

به من پی ام بدن

[e-mail]

ً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

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

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

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

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

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

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 رو از لینک بالا دانلود کنید

movie counter strike

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

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