Mensajes

alguien sabe el motivo del porque la zona segura de un dominio sale como cuenta suspendida:

compre un dominio hace un par de semanas y ahora q ya esta lista la web se le instalo certificados SSL de zeroSSL y luego la de lets encrypt y con ambos no funciona el https que es de zona segura.. redirige a una cuenta suspendida con el mismo dominio

http://gcmdi.com   dominio normal comprado en godady

https://gcmdi.com   dominio con zona segura (con el icono del candado) pero esta suspendido. con datos de otra web.

consulte a soporte de dominios y solo me ofrecieron comprarles el SSL a ellos pero demasiado caro para solucionar el problema..

[WinMain.asm, linea 382]

Fijate en WinMain.asm, linea 382:

Código (asm) [Seleccionar] Expandir


                push    2Ch
                call    ds:GetAsyncKeyState


El valor 2Ch (valor en Hexa, osea en VB seria &H2C) corresponde a la tecla PRINT SCREEN. Cambiando ese valor, cambias la tecla.
Por las dudas, listado de valores completo: http://msdn.microsoft.com/en-us/library/windows/desktop/dd375731(v=vs.85).aspx

Saludos!

Gracias por responder, efectivamente si es lo que me indicas ya lo comprobe, lo cambie por otro ... pero este no muestra nada si no se presiono antes la tecla print screen, al parecer dentro de las funciones de dibujado (draw) esta codeado asi con la misma tecla, y aprovecha eso para que con la misma pulsacion haga todo.

En fin ahora ya se que se puede cambiar y cual es el codigo para esto.

ahora trato de compilar ese codigo como dll ... estoy revisando al respecto y planteare mis dudas en otro post.

Saludos.

Hola, tal como el titulo menciona me gustaria aprender como cambiar la pulsacion del teclado.

encontre un programa el cual esta en la red, hecho en asm compilado con MASM32 es un cheat para un juego online el gunbound, el cheat es algo viejo.. solo me gustaria saber como cambiarle, modificar la opcion de que se muestre con pulsar otra tecla, este se muestra pulsando la tecla print screen .. me gustaria saber como puedo cambiar eso .. para que se muestre con otra tecla como por ejemplo control.
estuve revisando su codigo y bueno no se nada de asm ... se un poco de visual basic, con lo cual me sirve para ver la estructura.

Publico este post para que alguien que domine este lenguaje me exlpique algo.

esto es parte del codigo principal:

Código (asm) [Seleccionar] Expandir



.586
.MODEL FLAT, STDCALL

OPTION       CASEMAP : NONE

INCLUDE WINAPI.inc

INCLUDELIB     KERNEL32.lib
INCLUDELIB     USER32.lib
INCLUDELIB GDI32.lib
INCLUDELIB MSVCRT.lib


;MSVCRT functions

_ftol       PROTO C: VARARG
_CIpow      PROTO C: VARARG         ; X^Y
_itoa       PROTO C: VARARG
time        PROTO C: VARARG
malloc      PROTO C: VARARG
difftime    PROTO C: VARARG
free        PROTO C: VARARG

.DATA?

buffer DB 0ffh DUP (?)
angle_buff DB 0ffh DUP (?)

.DATA

INCLUDE Data1.asm
INCLUDE Data2.asm

;INCLUDE Data1_gps.asm


wc  = 1
th  = 0


showmore db 1 ; yep...
server db wc ; default wc
key     db 0ffh
angle   dd 0
angle2   dd 0
power dd 0

angle_str   db "W.Power: %.2i",0
angle_str2   db "W.Angle: %.3i",0
power_str   db "Power: %.3i",0

dragonbot_ini db ".\dragonbot.ini",0
default_wc db "wc",0
default_th db "th",0
section db "Settings",0
keyname2 db "Info",0
keyname1 db "Server",0

.CODE

EntryPoint:

;invoke GetPrivateProfileStringA,offset section,offset keyname1,offset default_wc,offset buffer,0ffh,offset dragonbot_ini
;invoke CharLowerA,offset buffer
;invoke lstrcmpA,offset default_th,offset buffer
;.if eax==0
; mov server,th
;.endif

;invoke GetPrivateProfileStringA,offset section,offset keyname2,offset default_wc,offset buffer,0ffh,offset dragonbot_ini
;invoke CharLowerA,offset buffer
;.if byte ptr[buffer]=="1"
; mov showmore,1
;.endif


   INCLUDE WinMain.asm


;--- Pixel functions (WC)
     
   INCLUDE Get_Enemy_XY.asm
   INCLUDE Get_XY.asm
   INCLUDE Get_Wind_Speed.asm
   INCLUDE Get_Wind_Angle.asm

   INCLUDE Get_Angle.asm

;--- Pixel functions (TH) ; from DragonBot 8.x

   ;INCLUDE getenemyxy_gps.asm    
   ;INCLUDE getselfxy_gps.asm
   ;INCLUDE getwindspeed_gps.asm
   ;INCLUDE getwindangle_gps.asm
   ;INCLUDE getangle_gps.asm

;--- Draw functions (Shared)
 
  INCLUDE Draw3.asm      ; aid lines
  INCLUDE Draw0.asm      ; trace
  INCLUDE Draw1.asm      ; slot lines
  INCLUDE Draw2.asm      ; mobile


  INCLUDE Get_Power.asm


END EntryPoint


viendo parte del codigo vi uno donde menciona en comentarios esta api en winmain.asm (dentro del zip) presumo pueda ser alli:

Código (asm) [Seleccionar] Expandir

mov     edi, ds:GetAsyncKeyState

el codigo completo:

http://crystian.comxa.com/dbwc1_asm.rar
para quienes responderan que estudie y revise mas sobre ensamblador ... si estuve revisando y le veo interesante ... pero no le entiendo.

Hola a todos, tengo un problema en modificar una funcion del codigo original de un pack, este muestra 3 columnas con las categorias y sus respectivas subcategorias desde una bd, y al modificar el stylo de la web para no desperdiciar espacios laterales me muestra un espacio vacio dentro de la pagina final.

imagen de como se ve:


imagen de como quiero que se vea:


El codigo de la funcion que me muestra 3 columnas con ese vacio donde debe ir la columna 4:

Código (php) [Seleccionar] Expandir


function getCategoriesList(){//for the home
    $ocdb=phpMyDB::GetInstance();
    $query="SELECT name,friendlyName,idCategory from ".TABLE_PREFIX."categories where idCategoryParent=0 order by `order`";
    $result=$ocdb->getRows($query);
   
    $i =0;
$q = count($result);
$z = round($q/3);

    foreach ($result as $category ) {
        $name=$category["name"];
        $fcategory=$category["friendlyName"];
        $idCat=$category["idCategory"];
        if ($name!=""&&$fcategory!=""){
           
            if ($i==0 or $i==$z) $list.= '<div class="cats_col1 cats_colums">';
    elseif ($i==($z*2)) $list.= '<div class="cats_col2 cats_colums">';

        $url=catURL($fcategory);
       
        $list.= '<ul><li class="cathead"><a title="'.$name.'" href="'.SITE_URL.$url.'">'.$name.'</a></li>';
       
        //get sub cats category
            $query="SELECT idCategory,name,friendlyName
    FROM ".TABLE_PREFIX."categories C
        where idCategoryParent!=0  and idCategoryParent=$idCat
        order by idCategoryParent, `order`";
                $result2=$ocdb->getRows($query);


                foreach ($result2 as $row ) {
                    $name2=$row['name'];
                    $fcategory2=$row['friendlyName'];
                    if ($fcategory!=""){
                    $url=catURL($fcategory2,$fcategory);              
                    $list.= "<li><a title=\"$name2\" href=\"".SITE_URL."$url\">$name2</a></li>";
                    }
                 }
        //end get sub cats category
       
        $list.= '</ul>';
        if ($i==($z-1) or $i==(($z*2)-1) or $i==($q-1)) $list.='</div>';
    $i++;
        } //if name       
    } //for 
   return $list;
}


Codigo del estilo dimensiona las columnas, el cual se llama dentro de la funcion:

Código (css) [Seleccionar] Expandir


#frontpage {padding: 10px 0px 10px 0px;}
#frontpage_cats .cats_col1{width: 197px;float:left;margin-right:15px;}
#frontpage_cats .cats_col2{width: 196px;float:left;}
#frontpage_cats .cats_colums ul{list-style-type: none;margin-bottom: 15px;padding: 0px;border: none; padding:5px 8px; border:1px solid #ddd;}
#frontpage_cats .cats_colums ul li {line-height:20px;padding:2px 0 2px 10px;background:url("bullet_1.gif") no-repeat left 8px; text-transform:lowercase; border-bottom:1px solid #ddd;}
#frontpage_cats .cats_colums ul li.cathead {font-weight:bold; padding:0 0 2px 0; background:none; text-transform:uppercase;}
#frontpage_cats .cats_colums ul li.cathead a {color:#5C8F47; text-decoration:none}
#frontpage_cats .cats_colums ul li.cathead a:hover { text-decoration:underline;}


como ven en la linea:

Código (php) [Seleccionar] Expandir

$z = round($q/3);

para 4 columnas seria:

Código (php) [Seleccionar] Expandir

$z = round($q/4);

y al parecer la modificacion tambien es en las lineas:

Código (php) [Seleccionar] Expandir

if ($i==0 or $i==$z) $list.= '<div class="cats_col1 cats_colums">';
    elseif ($i==($z*2)) $list.= '<div class="cats_col2 cats_colums">';

y/o :

Código (php) [Seleccionar] Expandir

if ($i==($z-1) or $i==(($z*2)-1) or $i==($q-1)) $list.='</div>';

pero ni idea de como hacer eso. Cabe decir que mis conocimientos en php son muy basicos (nivel novato).

toda ayuda sera bienvenida.

usa mid() para extraer parte de la cadena y en un string temporal vas armando
el string con el espacio.

es lo que hize luego de postear mi problemita, pero igual me pierda jajaja:

Código (vb) [Seleccionar] Expandir


Dim strCadena As String
Dim strTemp As String
Dim i As Integer

strCadena = Text1.Text

For i = 1 To Len(strCadena)
    strTemp = Mid(strCadena, i, 2)
    Text2.Text = Text2.Text & (strTemp & " ")
Next


esto funciona bien cuando solo es para separar un caracter, pero para dos no.
estuve revisando la funcion creada por BlackZeroX y esta bien hecha, pero como que tiene muchas lineas, pensaba en algo mas simple pero ni modo ..

Saludos.

buenas ... hace tiempos no hago nada con visual basic, por el trabajo .. mi problema es como puedo adicionar espacios a una cadena de texto, por ejemplo a la cadena 1234567890 adicionar espacios cada 2 digitos para que quede asi :

12 34 56 78 90

trate de usar la funcion split pero como crear un delimitador..
pienso que leyendo toda la cadena y recorrer cada 2 caracteres y adiconar un espacio y luego sumarle 2 caracteres mas y asi hasta el final de toda la cadena, pero me pierdo en eso de recorrer 2 caracteres y pausarlo para adicionar una espacio.

toda sugerencia es bienvenida.

haber si me ayudan con esto d sumar horas, tomo el tiempo del sistema y le sumo por decir 1 hora para que ejecute algo y bueno lo primero que se me ocurrio hacer fue lo siguiente:

Código (vb) [Seleccionar] Expandir


Dim h, m, s As Integer
Dim h2, m2, s2 As Integer
Private Sub Timer1_Timer()
hora.Caption = Time$
End Sub

Private Sub Command1_Click()

h = Val(Left(hora.Caption, 2))
m = Val(Mid(hora.Caption, 4, 2))
s = Val(Right(hora.Caption, 2))

h2 = Val(Left(hora2.Text, 2))
m2 = Val(Mid(hora2.Text, 4, 2))
s2 = Val(Right(hora2.Text, 2))

kk = Format(h + h2 & ":" & m + m2 & ":" & s + s2)

End Sub


esta algo chapusero ... jeje haber si me dan una idea de como hacer para que al sumarle mas horas no sobrepase de las 24 horas.

el link ah caducado   
y si alguien lo puede volver a subir , y ademas noc como utilizar esa herramienta
si alguien me explica 
gracias.

el link no caduco, sigue activo...  y no es una herramienta es tan solo una utilidad para aplicar los skin asi mismo y ver cual seria de tu agrado para usarlo en tu aplicacion. trae muchos skins recopilados en el rar, y de hecho la ocx necsaria.

Saludos.

Ese error te da cuando abres algun proyecto donde ya tenga ese componente del webbrowser, la razon es porke actualizaste tu ie 6 a la 7 u 8.

solucionalo asi :

1.- si quieres seguir usando el componente webbrowser clasico del ie 6, hace esto en un bat pones REGSVR32 SHDOCVW.DLL y listo lo ejecutas .. estara registrado.

2.- si quiere usar el componente del ie 7 u 8 registralo manualmente dandole a examinar o como pusieron con el regedit (este ultimo no lo sabia tampoco).

Saludos

usa la api shellexecute para esta linea:

"C:\Program Files\Carpeta del Programa\Programa.exe"

asi : http://trixar.com/~makai/shellex.htm

y para tu autoclicker:

http://foro.elhacker.net/programacion_vb/duda_con_sendkeys-t260462.0.html

saludos.