Ознакомьтесь с нашей политикой обработки персональных данных
  • ↓
  • ↑
  • ⇑
 
Записи пользователя: Линда Кайе (список заголовков)
07:43 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.


Куда L.P.M. делся? OO

05:57 

А дружим ли мы с Вимеой?

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
16:17 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
^.^

14:50 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
Что такое трэкбэк? Ща проверим ^^'
blog.not-a-kernel-guy.com/2009/06/01/561/trackb...

07:09 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
آپ کی آواز کی سہولت میسر نہیں ہے

آپ کی آواز کی سہولت فی الحال میسر نہیں ہے۔ ہم اس وقت سوفٹ وئیر کی ضروری مرمت کا کام کررہے ہیں۔ برائے مہربانی کچھ دیر میں دوبارہ تشریف لائیں۔

اس تکلیف کے لئے ہم معذرت خواہ ہیں۔
بی بی سی اردو ہوم پیج پر جائیے

07:09 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
आपकी राय सेवा उपलब्ध नहीं है

इस समय आपकी राय सेवा उपलब्ध नहीं है. हम अपना सॉफ़्टवेयर बेहतर
बनाने के लिए कुछ काम कर रहे हैं.

असुविधा के लिए खेद है.
हमारे पहले पन्ने पर जाएँ Servicio de foros interrumpido

Nuestro servicio de Foros no está disponible. En este momento, estamos realizando trabajos de actualización del sistema, por lo que le rogamos regrese en unos minutos y le pedimos disculpas por las molestias causadas.
Vaya a la Portada de BBCMundo خدمة "شارك برأيك" غير متاحة في الوقت الحالي

هذا المنتدى في خدمة "شارك برأيك" غير متاح في الوقت الحالي

تجري الآن عملية إصلاح ضرورية لبرنامج تشغيل المنتديات التفاعلية

يرجى إعادة محاولة فتح الصفحة المطلوبة بعد بضع دقائق

نأسف لهذه العطل الطارئ
اضغط هنا للعودة للصفحة الرئيسية



网上互动服务暂时无法接通

网上互动服务目前无法接通。我们正在进行软件维护,请过几分钟再来。

对由此而引起的不便我们深表歉意。‚
点击 此处 访问BBC中文网主页 O Fórum da BBC Brasil não está disponível

Este Fórum não está disponível no momento. O programa está em manutenção. Por favor, volte daqui a alguns minutos.

Desculpe pelo transtorno.
Clique aqui para ir à primeira página da BBC Brasil اين بخش از صفحه صدای شما در دسترس نيست

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

از اين بابت پوزش می خواهيم
صفحه نخست سايت فارسی بی بی سی



網上互動服務暫時無法接通

網上互動服務目前無法接通。我們正在進行軟體維護,請過幾分鐘再來。

對由此而引起的不便我們深表歉意。
點擊此處訪問BBC中文網主頁 Доступ к форумам закрыт

Страница форумов временно не работает. Это связано с профилактикой программного обеспечения. Пожалуйста, вернитесь на форумы через несколько минут.

Приносим свои извинения за созданные неудобства.
Щелкните здесь, чтобы вернуться на главную страницу BBCRussian.com آپ کی آواز کی سہولت میسر نہیں ہے

آپ کی آواز کی سہولت فی الحال میسر نہیں ہے۔ ہم اس وقت سوفٹ وئیر کی ضروری مرمت کا کام کررہے ہیں۔ برائے مہربانی کچھ دیر میں دوبارہ تشریف لائیں۔

اس تکلیف کے لئے ہم معذرت خواہ ہیں۔
بی بی سی اردو ہوم پیج پر جائیے

11:00 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
Далее!

[I]Byaka

You have downloaded this file from www.etplanet.com
The Coolest Site on the Planet

11:00 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
Далее!

Byaka[/I]

You have downloaded this file from www.etplanet.com
The Coolest Site on the Planet

10:58 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
Смешивает тэги!

Byaka
Byaka
Byaka
Byaka
Byaka
Byaka
Byaka[/I]
[I]Byaka

17:51 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
А почему так тихо?

Тест paste to blog, которую даёт сервис Microsoft.

Не пахаить ^^



http://cid-b3e09116953661fb.skydrive.live.com/embedrowdetail.aspx/Hobby%20Land%20Soft/40000hit%7C_05%7C_Yuge%7C_Hard640B.jpg


16:38 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
Благодарю за внимание OO

16:38 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
16:38 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
16:38 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
16:38 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
16:38 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
16:37 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
14:56 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
J - Линда Кайе
L - Линда Кайе

А сей дневник разве не платный уже?

Private Function ParseJs(ByVal TXT As BStr) As BStr
Dim RE As New RegExp
Dim MC As MatchCollection
Dim TMP As Long
Dim NewTXT As BStr
Dim Ptr As Long

' Вопрос в конце ограничивает поиск наименьшим значением. Тоесть
' если в одной строке будут два соввпадения, выберутся оба, а не
' один их включающий. L.P.M., я тебя не забуду ^_^
RE.Pattern = "\[J\](.*?)\[/J\]"
RE.MultiLine = False
RE.Global = True
RE.IgnoreCase = True

' $1 - это ссылка на первый submatch ^^
Const RPL = "" & _
"
" & _
"$1"

ParseJs = RE.Replace(TXT, RPL)
End Function

запись создана: 01.04.2009 в 04:49

11:29 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
#music~Touch & Go\Ecoutez Repetez
#music~Ursula 1000\Kinda Kinky
#music~Mortal Combat\Control
#music~D12\American Psycho II (feat B-Real)
#music~Dj Tiesto\Sparkler
#music~Dmx feat. Busta Rhymes\Come thru (Move-ras)
#music~Eminem ft. Boo Yaa Tribe\Real 911




#music~Touch & Go\Ecoutez Repetez
#music~Ursula 1000\Kinda Kinky
#music~Mortal Combat\Control
#music~D12\American Psycho II (feat B-Real)
#music~Dj Tiesto\Sparkler
#music~Dmx feat. Busta Rhymes\Come thru (Move-ras)
#music~Eminem ft. Boo Yaa Tribe\Real 911

13:48 

Линда Кайе
Тотальная неудачница и убийца жёстких дисков.
//===================================================================
// ВНИМАНИЕ!!!!
//
// В функции вроде SysReAllocString() передавать BSTR нужно
// внимательно, поскольку функции принимают OLECHAR, а не BSTR,
// тоесть ДО ПЕРВОГО НУЛЯ. Поэтому следует использовать
// SysReAllocLen()!!!
//
// Также можно использовать мои
// SysReAllocStringBSTR() и SysAllocStringBSTR().
//===================================================================

#include
#include
#include

//#pragma INSERT_AJP_ID

// Эти макросы возврщают булево значение...
#define RETURN_FALSE {*RetVal = VBFalse; return S_FALSE;}
#define RETURN_TRUE {*RetVal = VBTrue; return S_OK;}

// Этот макрос возвращает пустую строку...
#define RETURN_EMPTY_STRING { SysReAllocString(RetVal, L"\0"); \
return S_OK; }








// Мой вариант структуры...
typedef struct AS_MEMORY_STATUS {
DWORD MemoryLoadPercent;
DWORD Padding;
double TotalPhysical;
double AvailPhysical;
double TotalPageFile;
double AvailPageFile;
double TotalVirtual;
double AvailVirtual;
double AvailExtendedVirtual;
} AS_MEMORY_STATUS;

// Официальная структура...
typedef struct _MEMORYSTATUSEX {
DWORD dwLength;
DWORD dwMemoryLoad;
DWORDLONG ullTotalPhys;
DWORDLONG ullAvailPhys;
DWORDLONG ullTotalPageFile;
DWORDLONG ullAvailPageFile;
DWORDLONG ullTotalVirtual;
DWORDLONG ullAvailVirtual;
DWORDLONG ullAvailExtendedVirtual;
} MEMORYSTATUSEX, *LPMEMORYSTATUSEX;

typedef BOOL (WINAPI *GLOBALMEMORYSTATUSEX)(LPMEMORYSTATUSEX lpBuffer);

inline double DwordLongToDouble(DWORDLONG Value);
HRESULT GlobalMemoryStatusBase(AS_MEMORY_STATUS *MemStat);

//===================================================================
// Эта функция пытается прочитать сведения о памяти как со старой
// функцией так и с новой, если она доступна. Очень полезно на
// машинах, где много памяти...
//===================================================================
EXP_AJPAPI(HRESULT) asGlobalMemoryStatus(AS_MEMORY_STATUS *MemStat)
{
if (MemStat == NULL) return E_INVALIDARG;

// Obtain the module handle of the kernel.
HMODULE hKernel = GetModuleHandle("KERNEL32");
if (!hKernel) return GlobalMemoryStatusBase(MemStat);

// Теперь вытаскиваем функцию. Терпеть не могу это >_<
GLOBALMEMORYSTATUSEX GlobalMemoryStatusEx = (GLOBALMEMORYSTATUSEX)GetProcAddress(hKernel, "GlobalMemoryStatusEx");
if (GlobalMemoryStatusEx == NULL) return GlobalMemoryStatusBase(MemStat);

// Теперь пробуем вызвать улучшенную функцию...
MEMORYSTATUSEX MSEX;

MSEX.dwLength = sizeof(MSEX);
if (GlobalMemoryStatusEx(&MSEX) == FALSE) return GlobalMemoryStatusBase(MemStat);

MemStat->MemoryLoadPercent = (DWORD)MSEX.dwMemoryLoad;
MemStat->TotalPhysical = DwordLongToDouble(MSEX.ullTotalPhys);
MemStat->AvailPhysical = DwordLongToDouble(MSEX.ullAvailPhys);
MemStat->TotalPageFile = DwordLongToDouble(MSEX.ullTotalPageFile);
MemStat->AvailPageFile = DwordLongToDouble(MSEX.ullAvailPageFile);
MemStat->TotalVirtual = DwordLongToDouble(MSEX.ullTotalVirtual);
MemStat->AvailVirtual = DwordLongToDouble(MSEX.ullAvailVirtual);
MemStat->AvailExtendedVirtual = DwordLongToDouble(MSEX.ullAvailExtendedVirtual);

return S_OK;
}

inline double DwordLongToDouble(DWORDLONG Value)
{
return (double)(signed __int64)Value;
}

// Здесь мы пробуем базовую функцию, если новая не доступна...
HRESULT GlobalMemoryStatusBase(AS_MEMORY_STATUS *MemStat)
{
MEMORYSTATUS MS;

MS.dwLength = sizeof(MS);
GlobalMemoryStatus(&MS);

MemStat->MemoryLoadPercent = (DWORD)MS.dwMemoryLoad;
MemStat->TotalPhysical = (double)MS.dwTotalPhys;
MemStat->AvailPhysical = (double)MS.dwAvailPhys;
MemStat->TotalPageFile = (double)MS.dwTotalPageFile;
MemStat->AvailPageFile = (double)MS.dwAvailPageFile;
MemStat->TotalVirtual = (double)MS.dwTotalVirtual;
MemStat->AvailVirtual = (double)MS.dwAvailVirtual;
MemStat->AvailExtendedVirtual = 0;

return S_OK;
}

//===================================================================
typedef BOOL (WINAPI *ISWOW64PROCESS) (HANDLE hProcess, BOOL *lpWOW64);

//===================================================================
EXP_AJPAPI(HRESULT) asIsHostWin64(VARIANT_BOOL *RetVal)
{
// Если компилируется как Win64 библиотека, то и искать нечего...
#ifdef _WIN64
CHECK_RETVAL;
RETURN_TRUE;

// А в обратном случае будет хитрость...
#else
CHECK_RETVAL;

HMODULE hKernel = GetModuleHandle("KERNEL32");
if (!hKernel) RETURN_FALSE;

ISWOW64PROCESS IsWow64Process = (ISWOW64PROCESS)GetProcAddress(hKernel, "IsWow64Process");
if (IsWow64Process == NULL) RETURN_FALSE;

BOOL bIsWow64 = FALSE;
BOOL RC = IsWow64Process(GetCurrentProcess(), &bIsWow64);

if (!RC) RETURN_FALSE;
if (!bIsWow64) RETURN_FALSE;
RETURN_TRUE;
#endif
}

Тестируем здесь что угодно

главная