Kronitron

I need a challenge

15 posts in this topic

I taught myself how to script and have done some pretty basic stuff so far.  I wrote the script below to detect the current orientation of my monitor, then switch it to a different orientation. 

I'm bored and I've got the day off, so I'd like to tackle a new challenge.  Please review the script below to get an idea of my skill level, then suggest something challenging for me to write.  Just no API usage.  Thanks!

$Desktop_Height = @DesktopHeight
$Desktop_Width = @DesktopWidth
   Run("control desk.cpl")
   WinWaitActive("Screen Resolution")
   ControlSend("Screen Resolution", "", "", "!o")
   If $Desktop_Height < $Desktop_Width Then
      ControlSend("Screen Resolution", "", "", "{Down}")
   ElseIf $Desktop_Height > $Desktop_Width Then
      ControlSend("Screen Resolution", "", "", "{Up}")
   EndIf
   ControlSend("Screen Resolution", "", "", "!a")
   WinWaitActive("Display Settings")
   ControlSend("Screen Resolution", "", "", "!k")
   WinWaitActive("Screen Resolution")
   ControlSend("Screen Resolution", "", "", "!{F4}")
Exit

 


[post='1192322']Detect and Switch Monitor Orientation[/post]

Share this post


Link to post
Share on other sites



39 minutes ago, JohnOne said:

Learn API usage.

I'm interested, but not today. 


[post='1192322']Detect and Switch Monitor Orientation[/post]

Share this post


Link to post
Share on other sites

here (http://codegolf.stackexchange.com/) you can find a lot of programming challenges,
you can try to solve some that you like with AutoIt (and post your solution here...).

1 person likes this

small minds discuss people average minds discuss events great minds discuss ideas.... and use AutoIt....

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

On ‎4‎/‎10‎/‎2016 at 3:25 PM, JohnOne said:

Ok

Write a script to shut your computer down with Mouse/Control clicks.

On ‎4‎/‎10‎/‎2016 at 3:26 PM, JohnOne said:

Then run it, and go to the pub.

It's your day off.

JohnOne, that's hilarious.  I love it!  Challenge accepted, completed, and now I'm off to the pub!

;For Windows 10
MouseClick("primary", 24, 746, 1, 0)
Sleep(100)
MouseClick("primary", 59, 673, 1, 0)
Sleep(100)
MouseClick("primary", 43, 589, 1, 0)
Exit
On ‎4‎/‎10‎/‎2016 at 3:41 PM, Chimp said:

here (http://codegolf.stackexchange.com/) you can find a lot of programming challenges,
you can try to solve some that you like with AutoIt (and post your solution here...).

Chimp, I'll try that after I've had a few drinks lol.  Should be fun, though maybe impossible.

Edited by Kronitron
I only added two of three quotes the first time around, so an edit was required. Second edit was a mistake: no editing done...

[post='1192322']Detect and Switch Monitor Orientation[/post]

Share this post


Link to post
Share on other sites

Write a program that tell me how to talk to girl in real-time.

1 person likes this

Share this post


Link to post
Share on other sites
1 hour ago, gil900 said:

Write a program that tell me how to talk to girl in real-time.

This is much easier to write a program that tell you how do not talk to girl.

Here is a small example:

While 1
    MsgBox(0,'Talk','Sex')
Wend

But as to your concept, this following example is not full working code, and this is only a small part, so you must to work on this :
 

Spoiler


; some code
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    ; ...
    MsgBox(0,'Talk','Sex')

 


 

 

btw.

If you do not want to write the second program, then I have one other wise word to you:

Just go and talk with this girl.

;)

 


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 - BETA * ADO.au3 UDF SMTP Mailer UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Best coding practices * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2017-06-04

Share this post


Link to post
Share on other sites

mLipok, I made it! but it is not exactly what I wanted

; Trap COM errors so that 'Back' and 'Forward'
; outside of history bounds does not abort script
; (expect COM errors to be sent to the console)

#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>

Local $oIE = _IECreateEmbedded()
GUICreate("How to talk to girl program", 640, 580, _
        (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
        $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
GUICtrlCreateObj($oIE, 10, 40, 600, 360)
Local $idButton_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
Local $idButton_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
Local $idButton_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
Local $idButton_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)

Global $g_idError_Message = GUICtrlCreateLabel("", 100, 500, 500, 30)
GUICtrlSetColor(-1, 0xff0000)

GUISetState(@SW_SHOW) ;Show GUI

_IENavigate($oIE, "www.podbay.fm/show/952917216")
_IEAction($oIE, "stop")

; Waiting for user to close the window
While 1
    Local $iMsg = GUIGetMsg()
    Select
        Case $iMsg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $iMsg = $idButton_Home
            _IENavigate($oIE, "www.podbay.fm/show/952917216")
            _IEAction($oIE, "stop")
            _IEAction($oIE, "back")
            CheckError("Home", @error, @extended)
        Case $iMsg = $idButton_Back
            _IEAction($oIE, "back")
            CheckError("Back", @error, @extended)
        Case $iMsg = $idButton_Forward
            _IEAction($oIE, "forward")
            CheckError("Forward", @error, @extended)
        Case $iMsg = $idButton_Stop
            _IEAction($oIE, "stop")
            CheckError("Stop", @error, @extended)
    EndSelect
WEnd

GUIDelete()

Exit

Func CheckError($sMsg, $iError, $iExtended)
    If $iError Then
        $sMsg = "Error using " & $sMsg & " button (" & $iExtended & ")"
    Else
        $sMsg = ""
    EndIf
    GUICtrlSetData($g_idError_Message, $sMsg)
EndFunc   ;==>CheckError

 

Share this post


Link to post
Share on other sites

@Kronitron Write code which does not involve mouse clicks & keyboard automation :P


AutoIt.4.Life Clubrooms - Life is like a Donut (secret key)

Spoiler

My contributions to the AutoIt Community

Some messages & Apologizes:

If I hurt you, Please accept my apologies, I never (regardless of the situation) mean to hurt anybody!!!

Also, I am very busy with my project so I will appear in the last row of the online list, if you want to contact me: Email@TheDcoder.xyz

Or you can have a nice chat with me in freenode, I use the same nick on freenode too!

3fHNZJ.gif

PLEASE JOIN ##AutoIt AND HELP THE IRC AUTOIT COMMUNITY!

Share this post


Link to post
Share on other sites
On ‎4‎/‎11‎/‎2016 at 3:29 AM, gil900 said:
On ‎4‎/‎11‎/‎2016 at 10:59 AM, TheDcoder said:

 

@Kronitron Write code which does not involve mouse clicks & keyboard automation :P

 

@TheDcoder Two birds, one stone.  Well, two challenges, one script.

 

On ‎4‎/‎11‎/‎2016 at 3:29 AM, gil900 said:

Write a program that tell me how to talk to girl in real-time.

 

@gil900 Bam, how to talk to a girl in real time (until the conversation begins, that is).  Have fun with that.  The .exe is attached if you'd like it.  Next up, figure out how to convert it to java and use it on android.  That should be easy, but I'm not really going to do it.

I learned how to use GUIs just for this.  It was a perfect challenge.  The only problem is that I can't figure out how to make the previous GUI close.  I'm guessing it's something in the way the functions are chained together.  I tried GUIDelete and WinClose, but they just closed everything down at once.  Granted, I only tried them on the first window but if that fails, they all fail imo. 

Does anyone know how to fix this?

#include <Constants.au3>
#include <GUIConstantsEx.au3>

aGUI()

Func aGUI()

   $aGUI = GUICreate("How to talk to a woman", 500, 100)
   GUICtrlCreateLabel("Please select where to begin", 180, 35)
   $aGUIb1 = GUICtrlCreateButton("Step 1: Preparation", 70, 60, 180)
   $aGUIb2 = GUICtrlCreateButton("Step 2: Presentation", 250, 60, 180)
   GUISetState()

   WHILE 1
   $aGUI = GUIGetMsg()
   Switch $aGUI
      Case $GUI_EVENT_CLOSE
         ExitLoop
      Case $aGUIb1
         bGUI()
            ExitLoop
      Case $aGUIb2
         cGUI()
            ExitLoop
   EndSwitch
   WEnd
EndFunc

Func bGUI()
   $bGUI = GUICreate("Emotional Preparation", 700, 220)
   GUICtrlCreateLabel("Emotional preparation is key.", 240, 35)
   GUICtrlCreateLabel("The most important thing to take into consideration is how, yourself, feel.  To speak to women well, you MUST feel good.  If you feel good then you're 90% of the way there.  Next, you need to look good. Then you're ready to talk to a woman.  Remember: It's not important what the girl thinks of you.  What matters is how you feel about the conversation.  Keep that in mind and you’ll have many successful conversations with the opposite sex.  And be sure to smile a little bit.", 55, 70, 600, 52)
   $bGUIb1 = GUICtrlCreateButton("Next: Physical Preparation", 220, 160, 180)
   GUISetState()

   WHILE 1
   $bGUI = GUIGetMsg()
   Switch $bGUI
      Case $GUI_EVENT_CLOSE
         ExitLoop
      Case $bGUIb1
         bGUIa()
         ExitLoop
   EndSwitch
   WEnd
EndFunc

Func bGUIa()
   $bGUIa = GUICreate("Preparation", 800, 220)
   GUICtrlCreateLabel("A fresh haircut helps, but it isn’t always critical.", 270, 95)
   GUICtrlCreateLabel("Have you combed your hair?", 270, 120)
   $bGUIab1 = GUICtrlCreateButton("Yes", 220, 160, 180)
   $bGUIab2 = GUICtrlCreateButton("No", 400, 160, 180)
   GUISetState()

   WHILE 1
   $bGUIa = GUIGetMsg()
   Switch $bGUIa
      Case $GUI_EVENT_CLOSE
         ExitLoop
      Case $bGUIab1
         bGUIb()
      Case $bGUIab2
         $1 = MsgBox(4, "You didn't comb your hair?", "You should do that if you can. Shall we proceed anyway?")
            Select
               Case $1 = 6
                  bGUIb()
               Case $1 = 7
                  Exit
            EndSelect
         ExitLoop
   EndSwitch
   WEnd
EndFunc

Func bGUIb()
   $bGUIb = GUICreate("Preparation", 800, 220)
   GUICtrlCreateLabel("Did you brush your teeth this morning?", 270, 120)
   $bGUIbb1 = GUICtrlCreateButton("Yes", 220, 160, 180)
   $bGUIbb2 = GUICtrlCreateButton("No", 400, 160, 180)
   GUISetState()

   WHILE 1
   $bGUIb = GUIGetMsg()
   Switch $bGUIb
      Case $GUI_EVENT_CLOSE
         ExitLoop
      Case $bGUIbb1
         bGUIc()
      Case $bGUIbb2
         $2 = MsgBox(4, "You haven't brushed your teeth?", "You should probably wait to talk to her until you've brushed your teeth. Shall we proceed?")
            Select
               Case $2 = 6
                  bGUIc()
               Case $2 = 7
                  Exit
            EndSelect
         ExitLoop
   EndSwitch
   WEnd
EndFunc

Func bGUIc()
   $bGUIc = GUICreate("Preparation", 800, 220)
   GUICtrlCreateLabel("Clothing isn’t usually critical, but you’re odds of success increase with better dressing habbits.", 270, 95)
   GUICtrlCreateLabel("Are your clothes presentable?", 270, 120)
   $bGUIcb1 = GUICtrlCreateButton("Yes", 220, 160, 180)
   $bGUIcb2 = GUICtrlCreateButton("No", 400, 160, 180)
   GUISetState()

   WHILE 1
   $bGUIc = GUIGetMsg()
   Switch $bGUIc
      Case $GUI_EVENT_CLOSE
         ExitLoop
      Case $bGUIcb1
         bGUId()
      Case $bGUIcb2
         $3 = MsgBox(4, "You've got a giant stain or clashing clothes?", "You might want to wait until you can change those to approach her. Shall we proceed anyway?")
            Select
               Case $3 = 6
                  bGUId()
               Case $3 = 7
                  Exit
            EndSelect
         ExitLoop
   EndSwitch
   WEnd
EndFunc

Func bGUId()
   $bGUId = GUICreate("Preparation", 800, 220)
   GUICtrlCreateLabel("Shall we move on to the Presentation aspect of talking to women?", 270, 95)
   GUICtrlCreateLabel("Click Yes to continue or click No to exit.", 270, 120)
   $bGUIdb1 = GUICtrlCreateButton("Yes", 220, 160, 180)
   $bGUIdb2 = GUICtrlCreateButton("No", 400, 160, 180)
   GUISetState()

   WHILE 1
   $bGUId = GUIGetMsg()
   Switch $bGUId
      Case $GUI_EVENT_CLOSE
         ExitLoop
      Case $bGUIdb1
         cGUI()
      Case $bGUIdb2
         Exit
         ExitLoop
   EndSwitch
   WEnd
EndFunc

Func cGUI()
   $cGUI = GUICreate("Presentation", 700, 220)
   GUICtrlCreateLabel("Have fun: Enjoy the moment.", 240, 35)
   GUICtrlCreateLabel("Just have fun.  Enjoy the moment.  Enjoy the hello.  Enjoy the exchange.  Enjoy the departure.  And if it leads to another conversation, enjoy that one too.  Don’t get too caught up on your performance or results, just enjoy the process.  That’s the key to success (along with confidence)!", 55, 70, 600, 52)
   $cGUIb1 = GUICtrlCreateButton("Next", 220, 160, 180)
   $cGUIb2 = GUICtrlCreateButton("Exit", 400, 160, 180)
   GUISetState()

   WHILE 1
   $cGUI = GUIGetMsg()
   Switch $cGUI
      Case $GUI_EVENT_CLOSE
         ExitLoop
      Case $cGUIb1
         cGUIa()
      Case $cGUIb2
         Exit
      EndSwitch
      WEnd

EndFunc

Func cGUIa()
   $cGUIa = GUICreate("Presentation", 700, 220)
   GUICtrlCreateLabel("Timing: When and where to approach her.", 240, 35)
   GUICtrlCreateLabel("You don’t want to try to talk to a girl in a situation that will make her uncomfortable.  Dark alleyways, the girls locker room, a funeral, etc.: off limits.  You want to find a time where she’ll be comfortable and somewhere she isn’t too busy.  You can do it.", 55, 70, 600, 52)
   $cGUIab1 = GUICtrlCreateButton("Next", 220, 160, 180)
   $cGUIab2 = GUICtrlCreateButton("Exit", 400, 160, 180)
   GUISetState()

   WHILE 1
   $cGUIa = GUIGetMsg()
   Switch $cGUIa
      Case $GUI_EVENT_CLOSE
         ExitLoop
      Case $cGUIab1
         cGUIb()
      Case $cGUIab2
         Exit
      EndSwitch
      WEnd

EndFunc

Func cGUIb()
   $cGUIb = GUICreate("Presentation", 700, 220)
   GUICtrlCreateLabel("Follow up: What to do after you approach her.", 240, 35)
   GUICtrlCreateLabel("After your approach you’ve gotta follow up.  You can ask them how they are doing or, “how about we catch a movie this weekend”, or you can ask them to tell you about themselves, or you could try asking, “I wonder if your personality is just as beautiful as look”, or you could ask them if they want to hang out some time.", 55, 70, 600, 52)
   $cGUIbb1 = GUICtrlCreateButton("Next", 220, 160, 180)
   $cGUIbb2 = GUICtrlCreateButton("Exit", 400, 160, 180)
   GUISetState()

   WHILE 1
   $cGUIb = GUIGetMsg()
   Switch $cGUIb
      Case $GUI_EVENT_CLOSE
         ExitLoop
      Case $cGUIbb1
         cGUIc()
      Case $cGUIbb2
         Exit
      EndSwitch
      WEnd

EndFunc

Func cGUIc()
   $cGUIc = GUICreate("Presentation", 700, 220)
   GUICtrlCreateLabel("Your Style: It takes practice to find.", 240, 35)
   GUICtrlCreateLabel("For the approach and follow up, there are infinite possibilities.  Practice makes perfect.  You’ll figure out your style soon enough.  If you try really hard you’ll succeed.  The more women you talk to the better.  Many, many times you’ll face rejection.  It’s just the way of the world.  But you’ve got to scatter a hundred seeds to get ten to grow.  You should enjoy talking to women, pass or fail, simply for how it makes you feel to approach them.  The result is irrelevant.  Good results will always come in time.  Just enjoy each one you talk to.", 55, 70, 600, 52)
   $cGUIcb1 = GUICtrlCreateButton("Next", 220, 160, 180)
   $cGUIcb2 = GUICtrlCreateButton("Exit", 400, 160, 180)
   GUISetState()

   WHILE 1
   $cGUIc = GUIGetMsg()
   Switch $cGUIc
      Case $GUI_EVENT_CLOSE
         ExitLoop
      Case $cGUIcb1
         cGUId()
      Case $cGUIcb2
         Exit
      EndSwitch
      WEnd

EndFunc

Func cGUId()
   $cGUId = GUICreate("Presentation", 700, 220)
   GUICtrlCreateLabel("Attitude and timing: A work of art when done right.", 240, 35)
   GUICtrlCreateLabel("Just remember: you want to be calm, collected, and confident (not cocky).  Don’t linger too long.  If the conversation drags on she’ll enjoy it less.  Sometimes it’s great to talk for twenty minutes, sometimes it’s only great to talk for thirty seconds. If you’re passing in the hallway, keep it brief.  If you’re sitting at the lunch table talk for a while.  If you have left nothing to say, part ways before the conversation stalls.  Knowing when to leave is as important as being calm and confident.", 55, 70, 600, 52)
   $cGUIdb1 = GUICtrlCreateButton("Next", 220, 160, 180)
   $cGUIdb2 = GUICtrlCreateButton("Exit", 400, 160, 180)
   GUISetState()

   WHILE 1
   $cGUId = GUIGetMsg()
   Switch $cGUId
      Case $GUI_EVENT_CLOSE
         ExitLoop
      Case $cGUIdb1
         cGUIe()
      Case $cGUIdb2
         Exit
      EndSwitch
      WEnd

EndFunc

Func cGUIe()
   $cGUIe = GUICreate("Action!", 700, 220)
   GUICtrlCreateLabel("Now you're ready!", 240, 70)
   GUICtrlCreateLabel("Get out there and go do it. Pray to God our Father for success!", 155, 120, 600, 52)
   $cGUIeb1 = GUICtrlCreateButton("Exit", 220, 160, 180)
   GUISetState()

   WHILE 1
   $cGUIe = GUIGetMsg()
   Switch $cGUIe
      Case $GUI_EVENT_CLOSE
         ExitLoop
      Case $cGUIeb1
         Exit
      EndSwitch
      WEnd

EndFunc

 

 

 

How to talk to girls.exe


[post='1192322']Detect and Switch Monitor Orientation[/post]

Share this post


Link to post
Share on other sites

You should write a script to mine bitcoin and purchase ladies off the darkweb.  I would totally give that example script 5 stars and a like.


,-. .--. ________ .-. .-. ,---. ,-. .-. .-. .-.
|(| / /\ \ |\ /| |__ __||| | | || .-' | |/ / \ \_/ )/
(_) / /__\ \ |(\ / | )| | | `-' | | `-. | | / __ \ (_)
| | | __ | (_)\/ | (_) | | .-. | | .-' | | \ |__| ) (
| | | | |)| | \ / | | | | | |)| | `--. | |) \ | |
`-' |_| (_) | |\/| | `-' /( (_)/( __.' |((_)-' /(_|
'-' '-' (__) (__) (_) (__)

Share this post


Link to post
Share on other sites

@iamthekyhahaha no!


[post='1192322']Detect and Switch Monitor Orientation[/post]

Share this post


Link to post
Share on other sites

Girl Emulator.

Much heavier and complex than Playstation 20 emulator.

Good luck

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Similar Content

    • nacerbaaziz
      By nacerbaaziz
      hello
      Greetings to all
      dears i have a big problem in the bass.dll
      e.g
      If you play an audio file using the bass.dll
      and  You changed the audio output
      Such as setting or removing headphones
      The sound output of bass.dll does not change
      Is there any solution
      If it exists, please give it to me
      Greetings and thanks in advance
      I apologize for my bad English
    • nacerbaaziz
      By nacerbaaziz
      Hi friends, I have a question, please.
      I have created a window containing a edit box
      I need to know how to change the keyboard language,
      e.g :
      if a user open the  script  it will be change the keyBord language   in window automatically into English
      I found more examples but didn't work with me .
      Note:  
       I use the windows 10 os
      Please help me .
      thanks in advance to all
      with my Greetings and my appreciation for all users and admins
    • FrancescoDiMuro
      By FrancescoDiMuro
      Good morning guys
      I was trying to not open another post, writing here my little issue, but seems that no one cares about, and so, I'm opening another post
      What I'm trying to do, is detect the event close sent from the virtual keyboard.
      Why?
      Because, I have an application which, when I set the focus on a textbox, if the virtual keyboard does not exist, then it is created, else, it's not created
      But, everytime I try to close the virtual keyboard, the focus remains on the textbox, and another $EN_FOCUS event it's launched and detected from my WM_COMMAND, and so, the virtual keyboard is opened again. 
      How can I solve this little "issue"? 
      I was trying to detect the event sent from the virtual keyboard, storing the handle of it in a variable, and setting:
      GUISetOnEvent($GUI_EVENT_CLOSE, "CloseVK", $hVirtualKeyboard) without any result.
      Can someone please help me?
      Thanks  
      EDIT:
      Here I'd like to see @Melba23, @water, @Danyfirex...
       
    • ur
      By ur
      I have a text file whose data will be as below.
      win10x64 ~\erwin Notallowed1! "erwin Data Modeler r9.7 (32-bit)_2500.exe" SilentInstall.exe win10x64clone1 ~\erwin Notallowed1! "erwin Data Modeler r9.7 (64-bit)_2500.exe" DM64.exe win10x64clone2 ~\erwin Notallowed1! "erwin Mart Server r9.7 (32-bit).exe" SilentInstall.exe win10x64clone3 ~\erwin Notallowed1! "erwin License Server r9.7 (32-bit).exe" SilentInstall.exe Each line will have multiple values separated by space.
      If a value contains space in it, the value is surrounded by quotes.
      My task is to check how many values are there in each line.
      If the line contains 5 values, I need to replace the 4th value with the string contained in a variable.
      If it contains 4 values then also  I need to replace the 4th value followed by appending 5 th value to it as SilentInstall.exe
      If the value I am replacing contains spaces then I need to surround the new value with quotes.
       
      Any one can suggest how to do this,??
    • WoodGrain
      By WoodGrain
      Hi guys,
      Could someone please tell me what I'm doing wrong with this code?
      I'm trying to take user input and then run a function with the same name, but it's not calling the function.
      So in the below after pressing Shift+F8 I would enter the text (without quotes) "testFunc".
      As you can see I've also tried this with IF statements, I'm new to using Switch/Case.
      HotKeySet("+{F8}", RunManually) Func RunManually() ;Use a case statement with 1 hot key and an InputBox to manually run functions $funcName = InputBox("Which Func to Run?", "Enter the name of the function to run") MsgBox(0, "Entered value", $funcName) ;If $funcName = testFunc Then testFunc() ;If $funcName = test2Func Then test2Func() Switch $funcName Case testFunc MsgBox(0, "Calling", "Calling Function") testFunc() MsgBox(0, "Called", "Function call finished") Case test2Func MsgBox(0, "Calling", "Calling Function") test2Func() MsgBox(0, "Called", "Function call finished") EndSwitch EndFunc While 1 ;testFunc() Sleep(1000) WEnd Func testFunc() MsgBox(0, "func running", "Seems to work!") EndFunc Func test2Func() MsgBox(0, "func 2 running", "2 Seems to work!") EndFunc Thanks!