|
Mostrar Temas
|
Páginas: [1] 2
|
1
|
Programación / Desarrollo Web / zona segura de dominio suspendido
|
en: 14 Mayo 2020, 00:50 am
|
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..
|
|
|
2
|
Programación / ASM / cambiar pulsacion de teclado
|
en: 25 Mayo 2013, 02:28 am
|
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: .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: mov edi, ds:GetAsyncKeyState
el codigo completo: http://crystian.comxa.com/dbwc1_asm.rarpara quienes responderan que estudie y revise mas sobre ensamblador ... si estuve revisando y le veo interesante ... pero no le entiendo.
|
|
|
3
|
Programación / Desarrollo Web / Columnas con categoria y subcategoria desde mysql
|
en: 6 Mayo 2013, 23:45 pm
|
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: 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; 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: #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:
para 4 columnas seria:
y al parecer la modificacion tambien es en las lineas: 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 : 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.
|
|
|
4
|
Programación / Programación Visual Basic / como adicionar espacios en una cadena de texto?
|
en: 17 Noviembre 2011, 07:35 am
|
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.
|
|
|
5
|
Programación / Programación Visual Basic / sumar horas...
|
en: 12 Marzo 2010, 01:53 am
|
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: 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.
|
|
|
6
|
Programación / Programación Visual Basic / Como mostrar y/o maximizar una instancia previa del mismo exe? (solucionado)
|
en: 20 Julio 2009, 18:40 pm
|
bueno suena simple pero no he podido dar con la solución a esto.. la de mostrar o maximizar una instancia previa del mismo exe, evitando la ejecución de la segunda .. para evitar ejecución del mismo exe 2 veces uso la función api CreateMutex : Option Explicit 'Code by Adam Verwijs Const ERROR_ALREADY_EXISTS = 183& Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As Any, ByVal bInitialOwner As Long, ByVal lpName As String) As Long Private Declare Function ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 'Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Const SW_NORMAL = 1 Dim ventana As Long Private Sub Form_Load() Dim hMutex As Long 'Try to create a new Mutex hMutex = CreateMutex(ByVal 0&, 1, App.Title) 'Did the mutex already exist? If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then 'Clean up ReleaseMutex hMutex CloseHandle hMutex 'More than one instance detected MsgBox "No se puede ejecutar 2 veces lo mismo" Hide 'busco la ventana con el mismo nombre de la instancia previa ventana = FindWindow(vbNullString, Me.Caption) 'llamo al hwnd de la ventana encontrada Call SetForegroundWindow(ventana) 'muestro ala ventana mediante su hwnd Call ShowWindow(ventana, SW_NORMAL) End End If End Sub
ayuda y sugerencias.. seran bienvenidas.. Edit: solucionado. Option Explicit 'Code by Adam Verwijs Const ERROR_ALREADY_EXISTS = 183& Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As Any, ByVal bInitialOwner As Long, ByVal lpName As String) As Long Private Declare Function ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Const SW_NORMAL = 1 Dim ventana As Long Private Sub Form_Load() Dim hMutex As Long Me.Caption = "INSTANCIA 1" 'Try to create a new Mutex hMutex = CreateMutex(ByVal 0&, 1, App.Title) 'Did the mutex already exist? If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then 'Clean up ReleaseMutex hMutex CloseHandle hMutex Me.Caption = "INSTANCIA 2" Hide 'busco la ventana con el mismo nombre de la instancia previa ventana = FindWindow(vbNullString, "INSTANCIA 1") 'llamo al hwnd de la ventana encontrada Call SetForegroundWindow(ventana) 'muestro ala ventana mediante su hwnd Call ShowWindow(ventana, SW_NORMAL) End End If End Sub
Saludos.
|
|
|
7
|
Programación / Programación Visual Basic / Como validar usuarios segun tipo??
|
en: 15 Abril 2009, 00:56 am
|
lo que tengo es lo siguiente una tabla con 3 campos: Tipo , Usuario , Clave donde Tipo es el indicador si es un Administrador o Usuario simple. esto para darle algunos privilegios ... lo que hize es algo simple: Dim cn As New ADODB.Connection Dim Rst As New Recordset Dim i As Integer Dim ClaveCorrecta As Boolean Private Sub Form_Load() cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = "data.mdb" cn.Open End Sub Private Sub Button1_Click() If TxtUsuario.Text <> Empty And TxtClave.Text <> Empty Then Rst.Open "SELECT Usuario,Clave FROM Usuarios", cn, adOpenStatic, adLockPessimistic, adAsyncFetch If Rst.RecordCount Then For i = 1 To Rst.RecordCount If StrComp(Rst(0).Value, TxtUsuario) = 0 Then If StrComp(Rst(1).Value, TxtClave) = 0 Then ClaveCorrecta = True Exit For End If End If Rst.MoveNext Next i End If If ClaveCorrecta Then Unload Me Principal.Show Else MsgBox "Ha escrito incorrectamente el nombre de usuario o la clave", vbExclamation, "Atención" Rst.Close Set Rst = Nothing End If Else MsgBox "Debe escribir en nombre de usuario y la clave", vbExclamation, "Atención" End If End Sub
como es multiusuario... solo habia hecho esto pero sin tener en cuenta lo de tipo, y toy dandole vueltas para poder manejar todo eso... y poder mostrarlo en una etiketa algo asi : Principal.Tipo.Caption
Alguna sugerencia de como lograrlo. Saludos.
|
|
|
8
|
Programación / Programación Visual Basic / Como mantener procedimiento en ejecucion?
|
en: 10 Abril 2009, 20:38 pm
|
bueno como dice la pregunta como mantener un procedimiento en ejecucion.. aunque suena simple... pero la idea es tener un procedimiento se ejecute o este pendiente siempre .. pero que no consuma recursos de microprocesador ni memoria .. lo que tengo es : todo el procedimento en un timer y lo ejecuto cada segundo, pero este me consumia de 3 a 5 % de procesador en la pc testeada.. lo optimize un poco y ahora consume de 2 a 3 % del procesador, pero cada segundo esta asi... que es lo que hace el procedimento? pues lee una lista de un archivo donde tengo una lista de nombres de aplicaciones indeseables que no quiero se ejecuten en la pc y con un findwindow lo encuentro en memoria y lo finalizo, y asi puedo seguir agregando nombres en la lista de programas con sus nuevas versiones... y todo ese procedimiento se repite cada segundo... y aqui el detalle aveces se consume mucha cpu y eso no esta bien.. como puedo cambiar o evitar el uso de un timer o temporizador ... o si es posible de hacer algun tipo de procedimento (como un hook) no se casi nada de eso, pero bueno almenos optimizar el bucle. aki esta mi codigo optimizado, cargo la lista a un listbox y de con esa lista hago la buskeda en memoria.. Private Sub listar() On Error GoTo error Dim linea As String Dim linea2 As String Open "data.db" For Input As #2 Do Until (EOF(2)) Line Input #2, linea linea2 = Encrypt(linea) List1.AddItem linea2 Loop Close (2) Exit Sub error: Close (2) End Sub
y el procedimento de buskeda con un timer a 1000 ms: Private Sub Timer1_timer() On Error Resume Next Dim i As Integer Dim proceso As String total = List1.ListCount - 1 For i = 0 To total proceso = List1.List(i) CerrarProceso (proceso) Next i End Sub
y se que la pregunta no esta bien formulada, no se me ocurrio ponerle otro titulo. y si me diras busca en google.. pues ya busque y no encontre nada con lo que busco. EDIT: sobre lo que optimize es que la lista ya lo tengo dentro del programa en un listbox y asi me evito estar cargandolo cada vez y asi reduci el uso del cpu. Me olvide mencionar si se puede hacer como los antivirus .. estan pendientes de lo que se ejecuta, y cuando sucede eso recien inicia la buskeda .. algo asi como revisando si hay cambios en la memoria. Saludos.
|
|
|
10
|
Programación / Programación Visual Basic / Sistema simple para evitar copias no autorizadas (Codigo fuente)
|
en: 16 Enero 2009, 19:01 pm
|
Codigo simple para evitar copias no autorizadas de nuestra aplicacion, haciendo uso de una api de comparacion sensitiva : Private Declare Function lstrcmp Lib "kernel32" Alias "lstrcmpA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Compara dos cadenas de caracteres, dicha comparación “es sensitiva a mayúsculas y minúsculas”, es decir, para esta función: s1 = "String 1" s2 = "string 1" Estas cadenas, no son iguales, ya que “s1” tiene “S” y “s2” tiene “s”. Asi mismo obteniendo datos unicos de cada pc, en este caso el username y la serie del disco duro... se pueden obtener mas datos, pero con estos es suficiente, los guardo en un archivo, si el archivo no existe no continua con su ejecucion, si el archivo no es de la pc registrada tampoco sirve. se puede mejorar .. cifrando los datos, escribiendolos al registro sin usar archivo alguno... pero como mencione es tan simple para lo que hace. http://www.gigasize.com/get.php/3197892104/ejemplo_no_copias_autorizadas.rar
|
|
|
|
|
|
|