Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Совместные проекты

Страница: 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14

 

  Вопрос: Давайте напишем игру "Жизнь взломщика"? Добавлено: 23.06.05 17:37  

Автор вопроса:  HACKER

Ответить

  Ответы Всего ответов: 203  

Номер ответа: 106
Автор ответа:
 gvozd



Разработчик Offline Client

Вопросов: 164
Ответов: 1317


 Web-сайт: www.gvozdsoft.com
 Профиль | | #106
Добавлено: 05.08.05 19:54
Какое время дается на разработку компонента?

Ответить

Номер ответа: 107
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #107 Добавлено: 05.08.05 20:05
Сильно не кого не гоню, просто скажи что взялмя, а там неделя, надо 2...

Ответить

Номер ответа: 108
Автор ответа:
 gvozd



Разработчик Offline Client

Вопросов: 164
Ответов: 1317


 Web-сайт: www.gvozdsoft.com
 Профиль | | #108
Добавлено: 06.08.05 07:56
ОК, считай, что взялся.

Ответить

Номер ответа: 109
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #109 Добавлено: 06.08.05 13:54
вечером получиш контролы

Ответить

Номер ответа: 110
Автор ответа:
 ArtBase



ICQ: 55593017 

Вопросов: 23
Ответов: 76
 Профиль | | #110 Добавлено: 07.08.05 02:34
База за мной...тока мляха в аське потрещать надо!

Ответить

Номер ответа: 111
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #111 Добавлено: 08.08.05 13:22
к проекту присоединился FOX 548804

Ответить

Номер ответа: 112
Автор ответа:
 gvozd



Разработчик Offline Client

Вопросов: 164
Ответов: 1317


 Web-сайт: www.gvozdsoft.com
 Профиль | | #112
Добавлено: 08.08.05 14:25
HACKER
Ну и где картинки?

Ответить

Номер ответа: 113
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #113 Добавлено: 08.08.05 18:11
сории, тя небыло я и забыл, а ты ненапомнил, см мыло.

Ответить

Номер ответа: 114
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #114 Добавлено: 08.08.05 18:19
Кто поможет отладить шнягу


Option Explicit

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
Private Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private nRet As Long, w As Integer, h As Integer
Private MonoMaskDC As Long, hMonoMask As Long
Private MonoInvDC As Long, hMonoInv As Long
Private ResultDstDC As Long, hResultDst As Long
Private ResultSrcDC As Long, hResultSrc As Long
Private hPrevMask As Long, hPrevInv As Long
Private hPrevSrc As Long, hPrevDst As Long

Private Sub TransparentBlt(OutDstDC As Long, DstDC As Long, SrcDC As Long, DstX As Integer, DstY As Integer, DstH As Integer, DstW As Integer, TransColor As Long)
'Рисует картинку игнорируя определённый цвет
'(х.з. пока DstX и DstY = 0 рисует нормально, как передвинуть - глюки)
    w = DstW
    h = DstH
    
    Call ClearTransparent
    
    MonoMaskDC = CreateCompatibleDC(DstDC)
    MonoInvDC = CreateCompatibleDC(DstDC)
    hMonoMask = CreateBitmap(w, h, 1, 1, ByVal 0&;)
    hMonoInv = CreateBitmap(w, h, 1, 1, ByVal 0&;)
    hPrevMask = SelectObject(MonoMaskDC, hMonoMask)
    hPrevInv = SelectObject(MonoInvDC, hMonoInv)
    
    ResultDstDC = CreateCompatibleDC(DstDC)
    ResultSrcDC = CreateCompatibleDC(DstDC)
    hResultDst = CreateCompatibleBitmap(DstDC, w, h)
    hResultSrc = CreateCompatibleBitmap(DstDC, w, h)
    hPrevDst = SelectObject(ResultDstDC, hResultDst)
    hPrevSrc = SelectObject(ResultSrcDC, hResultSrc)
'
'    ;Dim OldBC As Long
'    OldBC = SetBkColor(SrcDC, TransColor)
'    nRet = BitBlt(MonoMaskDC, 0, 0, w, h, SrcDC, DstX, DstY, vbSrcCopy)
'    TransColor = SetBkColor(SrcDC, OldBC)
'    nRet = BitBlt(MonoInvDC, 0, 0, w, h, MonoMaskDC, DstX, DstY, vbNotSrcCopy)
'    nRet = BitBlt(ResultDstDC, 0, 0, w, h, DstDC, DstX, DstY, vbSrcCopy)
'    nRet = BitBlt(ResultDstDC, 0, 0, w, h, MonoMaskDC, DstX, DstY, vbSrcAnd)
'    nRet = BitBlt(ResultSrcDC, 0, 0, w, h, SrcDC, DstX, DstY, vbSrcCopy)
'    nRet = BitBlt(ResultSrcDC, 0, 0, w, h, MonoInvDC, DstX, DstY, vbSrcAnd)
'    nRet = BitBlt(ResultDstDC, 0, 0, w, h, ResultSrcDC, DstX, DstY, vbSrcInvert)
'    nRet = BitBlt(OutDstDC, 0, 0, w, h, ResultDstDC, DstX, DstY, vbSrcCopy)
    
    
    
    
        Dim OldBC As Long
    OldBC = SetBkColor(SrcDC, TransColor)
    nRet = BitBlt(MonoMaskDC, 0, 0, w, h, SrcDC, DstX, DstY, vbSrcCopy)
    TransColor = SetBkColor(SrcDC, OldBC)
    nRet = BitBlt(MonoInvDC, 0, 0, w, h, MonoMaskDC, 0, 0, vbNotSrcCopy)
    nRet = BitBlt(ResultDstDC, 0, 0, w, h, DstDC, DstX, DstY, vbSrcCopy)
    nRet = BitBlt(ResultDstDC, 0, 0, w, h, MonoMaskDC, 0, 0, vbSrcAnd)
    nRet = BitBlt(ResultSrcDC, 0, 0, w, h, SrcDC, DstX, DstY, vbSrcCopy)
    nRet = BitBlt(ResultSrcDC, 0, 0, w, h, MonoInvDC, 0, 0, vbSrcAnd)
    nRet = BitBlt(ResultDstDC, 0, 0, w, h, ResultSrcDC, 0, 0, vbSrcInvert)
    nRet = BitBlt(OutDstDC, DstX, DstY, w, h, ResultDstDC, 0, 0, vbSrcCopy)
End Sub

Public Sub ClearTransparent()
'Очищает прозрачность
    hMonoMask = SelectObject(MonoMaskDC, hPrevMask)
    ;DeleteObject hMonoMask
    hMonoInv = SelectObject(MonoInvDC, hPrevInv)
    ;DeleteObject hMonoInv
    hResultDst = SelectObject(ResultDstDC, hPrevDst)
    ;DeleteObject hResultDst
    hResultSrc = SelectObject(ResultSrcDC, hPrevSrc)
    ;DeleteObject hResultSrc
    ;DeleteObject MonoMaskDC
    ;DeleteObject MonoInvDC
    ;DeleteObject ResultDstDC
    ;DeleteObject ResultSrcDC
End Sub

Private Sub UserControl_Show()
'Выставляем контролы
picUpLeft.Top = 0: picUpLeft.Left = 0
picUpRight.Top = 0: picUpRight.Left = UserControl.Width - picUpRight.Width
picDownLeft.Top = UserControl.Height - picDownLeft.Height: picDownLeft.Left = 0
picDownRight.Top = UserControl.Height - picDownLeft.Height: picDownRight.Left = _
 UserControl.Width - picDownRight.Width



Dim clr As Long
clr = picDownLeft.Point(1, 1)
UserControl.BackColor = clr
'Делаем прозрачными (убираем ненужный цвет)
Call TransparentBlt(UserControl.hdc, UserControl.hdc, picDownLeft.hdc, picDownLeft.Top, picDownLeft.Left, picDownLeft.Height, picDownLeft.Width, clr)
Call TransparentBlt(UserControl.hdc, UserControl.hdc, picDownRight.hdc, picDownRight.Top, picDownRight.Left, picDownRight.Height, picDownRight.Width, clr)

Call TransparentBlt(UserControl.hdc, UserControl.hdc, picUpLeft.hdc, picUpLeft.Top, picUpLeft.Left, picUpLeft.Height, picUpLeft.Width, clr)
Call TransparentBlt(UserControl.hdc, UserControl.hdc, picUpRight.hdc, picUpRight.Top, picUpRight.Left, picUpRight.Height, picUpRight.Width, clr)
UserControl.Refresh
End Sub


это контрол, на котором 4 PictureBox, все они выстраиваются возле краёв юзерконтрола. подпрограмма TransparentBlt рисует PictureBox на контроле игнорирую определённый цвет (т.е. если задать цвет фона, то фон небудет прорисован - прозрачность) Беда в том что пока PictureBox стоит на контроле в кординатах 0,0 (DstX = 0: DstY = 0) то всё отдично прорисовывается, но стоит чуть сдвинуть, или взять другой PictureBox который не в 0,0 подпрограмма TransparentBlt вообще нечего не рисует и/или рисует часть картинки, короче бред получается, работает не так как надо... Я уже всё что можно перепробовал, разные кординаты подставлял, менял разные параметры во всех BitBlt нехрн неработает, ну руки крюки - извыняйте... Вообщем мож у кого получится наладить TransparentBlt, это пригодится в будущем для рисования других контролов.

Ответить

Номер ответа: 115
Автор ответа:
 ArtBase



ICQ: 55593017 

Вопросов: 23
Ответов: 76
 Профиль | | #115 Добавлено: 08.08.05 18:56
HACKER, йоп-ш тваю!))
Ты в аське появишься или нет?
Надо насчет БД помусолить!
Короче жду со вторника...

Ответить

Номер ответа: 116
Автор ответа:
 someone



Вопросов: 215
Ответов: 1596
 Web-сайт: 123
 Профиль | | #116
Добавлено: 09.08.05 15:31
Hacker, плиз список что надо сделать, может я че сделаю...

Ответить

Номер ответа: 117
Автор ответа:
 someone



Вопросов: 215
Ответов: 1596
 Web-сайт: 123
 Профиль | | #117
Добавлено: 09.08.05 15:39
Только подробный и тут, в этом топике, плиз!!

Ответить

Номер ответа: 118
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #118 Добавлено: 09.08.05 18:04
1) Дописать контролы
   Нужен чел хорошо умеющий работать с графическими API функциями

2) Плагин работы (отдал гвоздю)

3) БД железяк на комп с ценами (ArtBase)

4) БД работ (список работ, оценка усталости, оплата в день итп...) (гвоздь работает над плагином, а нагружать его ещё и БД думаю не стоит, так что помогайте ему)

5) Плагин IE... (нечего особенного, на компоне WebBrowser)

6) Плагин Windows (нужно имитировать рабочий стол винды, пуск, и некоторые дополнительные части, мой комп например итп...) но это без плагина железяк на комп начинать небудем, а так вообще свободно

7) Онлайн часть, тут в основном пхп, нужно ещё много что продумать, но принцип могу рассказать. Есть хостинг с поддержкой пхп, когда пользователь (типа) выходит в инет (с понтом через плагин винды подключился к инету) запускается самый интерестный плагин, который общается со скриптами пхп на сервере. Цель плагина и всей этой мути состоит в том чтобы обеспечить связть со всеми кто сейчас в онлайне (т.е. кто через плагин винды соединился с инетом). Обеспечить связь это я подразумеваю получение списка всех кто в онлайне, и передача строковых данных конкретному юзеру в онлайне, а на другой стороне этот же плагин принимает эти данные и соответственно обрабатывает чё-то делает итп... Таким макаром можно будет дополнить плагин винды такими подплагинами как icq email итп... Самое вкусное что всё это незвисимо, всё это внутри нашего сервера, внутри нашей игры, но самое при самое... это ж сколько хакерских вещей придумать можно, передел якобы запрос на скан портов, возвратился список открытых портов, ищеш плагины которые соеденяются по портам, выкачивают инфу с компа итп... кстати выкачивать инфу можно и по настоящему, конечно не всю подряд с компа, а ту что в пределах игры (дополнительные плагины, хакерские проги, вообщем арсенал хакера...) самое приятное что всё это не по настоящему, а значит не представляет опасности, т.к. всё в пределах игры, к физическому компу (ящику что у вас на столе или под столом) никто не вломится :) Ну думаю вы поняли :) Эту фишку я поручаю себе и TERMIT'y т.к. у нас с ним опыт в этом деле :)

Ответить

Номер ответа: 119
Автор ответа:
 gvozd



Разработчик Offline Client

Вопросов: 164
Ответов: 1317


 Web-сайт: www.gvozdsoft.com
 Профиль | | #119
Добавлено: 09.08.05 18:09
Стоп! Ты че-то путаешь. Ты мне дал контрол MIDI-плеера.

Ответить

Номер ответа: 120
Автор ответа:
 TERMIT



ICQ: 5297101 

Вопросов: 16
Ответов: 93
 Web-сайт: xtec.ru
 Профиль | | #120
Добавлено: 09.08.05 19:18
без проблем =) как даш мне конкретную работу так сделаю =)...

Ответить

Страница: 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам