Jump to content
Sign in to follow this  
nacerbaaziz

how to get the islamic date using autoit

Recommended Posts


Hello
I have a question please
How to show Islamic date in Autoit
I mean
for example
Ramadan month
And moharam month ... etc
I hope my question is clear for you
Thanks in advance

Share this post


Link to post
Share on other sites

nacerbaaziz,

You should know by now that we help you get your script working - not write code from scratch. What have you tried that has not worked?

M23


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

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Hello again
my dear  
@Melba23
I do not know if there is a function in the language responsible for providing the islamic date Or another method
So I could not find an entrance to try working
But I am in dire need of this
Please help me by giving me any way to get Islamic date using autoit

Share this post


Link to post
Share on other sites

nacerbaaziz,

Quote

is a function in the language responsible for providing the islamic date

No.

Have you searched for an algorithm in any language which will allow you to convert normal dates into islamic dates? If so let us know and we can try and convert it into AutoIt. If not - than I suggest you do so rather then expect us to do it for you.

M23


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

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

this is a function to converte the date to hijri date using cpp

 

I do not understand ith cpp language so I hope you will help me in converting this function to autoit language
 

 

void gregorian_to_hijri(int* h_y, int* h_m, int* h_d, int  g_y, int  g_m, int  g_d)
{
    int year, month, day;

    int zyr;
    int zd;
    int zm;
    int zy;

    float zjd;
    int zl;
    int zn;
    int zj;

    year = g_y;
    month = g_m;
    day = g_d;


    zyr = year;
    zd = day;
    zm = month;
    zy = zyr;

    if((zy > 1582) || ((zy == 1582) && (zm > 10)) || ((zy == 1582) && (zm == 10) && (zd > 14)))
    {
        zjd = ((1461 * (zy + 4800 + ((zm - 14) / 12))) / 4)
            + ((367 * (zm - 2 - 12 * (((zm - 14) / 12)))) / 12)
            - ((3 * (((zy + 4900 + ((zm - 14) / 12)) / 100))) / 4) + zd - 32075;
    }
    else
    {
        zjd = 367 * zy - ((7 * (zy + 5001 + ((zm - 9) / 7))) / 4)
            + ((275 * zm) / 9) + zd + 1729777;
    }

    zl = zjd - 1948440 + 10632;
    zn = ((zl - 1) / 10631);
    zl = zl - 10631 * zn + 354;
    zj = (((10985 - zl) / 5316)) * ((int)((50 * zl) / 17719))
        + ((zl / 5670)) * ((int)((43 * zl) / 15238));

    zl = zl - (((30 - zj) / 15)) * (((17719 * zj) / 50))
        - ((zj / 16)) * (((15238 * zj) / 43)) + 29;

    zm = ((24 * zl) / 709);
    zd = zl - ((709 * zm) / 24);
    zy = 30 * zn + zj - 30;

    *h_y = zy;
    *h_m = zm;
    *h_d = zd;
}

Edited by nacerbaaziz

Share this post


Link to post
Share on other sites

There are many variants of islamic calendar. You should read up the net to choose one "standard" and try to implement it in AutoIt as I don't know of an existing published UDF. For instance the .NET frame work, Java 8 and Visual Basic have made API available for this purpose.


This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Share this post


Link to post
Share on other sites
5 minutes ago, nacerbaaziz said:

this is a function to converte the date to hijri date using cpp

+

Great, that code is very translatable to AutoIt, try to do so and share your results if you get stuck.


"Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball

How to get your question answered on this forum!

Share this post


Link to post
Share on other sites

Then I guess you have some reading to do. As Melba stated above, we are getting tired of you putting forth zero effort and demanding people write code for you, and do it now. You should be able to step through that code line by line and find an AutoIt equivalent. If you're unwilling to even try to do so, let us know so we can close the topic.


"Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball

How to get your question answered on this forum!

Share this post


Link to post
Share on other sites

First I apologize to all administrators and members
I'm asking here because this forum is very compatible with screen readers
Unlike  Lots other sites, most of which use a forums script   that is not compatible enough with the screen reader
And their explanations are mostly pictures
Unfortunately, the screen reader can not read the image
So for that the search methods I can search on the Internet are very limited
I hope you're not bothered by my primitive questions.
and  please try to help me.
I wish you a happy and good life

now I'm going back to the subject of my question, If you don't mind.

I have declared the variables in a function using autoit
But unfortunately no matter how hard I tried I could not understand the if conditional used
Can you help me to converte  only the conditional if section?
That's code what I was able to write.

 

Share this post


Link to post
Share on other sites

func gregorian_to_hijri($g_y = @Year, $g_m = @Mon, $g_d = @mDay, $h_y = "", $h_m = "", $h_d = "")
local $year, $month, $day
local $zyr, $zd, $zm, $zy
$zjd, $zl, $zn, $zj
$year = $g_y
$month = $g_m
$day = $g_d


endFunc

Share this post


Link to post
Share on other sites
2 hours ago, nacerbaaziz said:

if((zy > 1582) || ((zy == 1582) && (zm > 10)) || ((zy == 1582) && (zm == 10) && (zd > 14)))
    {
        zjd = ((1461 * (zy + 4800 + ((zm - 14) / 12))) / 4)
            + ((367 * (zm - 2 - 12 * (((zm - 14) / 12)))) / 12)
            - ((3 * (((zy + 4900 + ((zm - 14) / 12)) / 100))) / 4) + zd - 32075;
    }
    else
    {
        zjd = 367 * zy - ((7 * (zy + 5001 + ((zm - 9) / 7))) / 4)
            + ((275 * zm) / 9) + zd + 1729777;
    }

I think this could be translated as:

if ((zy > 1582) Or ((zy = 1582) And (zm > 10)) Or ((zy = 1582) And (zm = 10) And (zd > 14))) Then
        zjd = ((1461 * (zy + 4800 + ((zm - 14) / 12))) / 4) + ((367 * (zm - 2 - 12 * (((zm - 14) / 12)))) / 12) - ((3 * (((zy + 4900 + ((zm - 14) / 12)) / 100))) / 4) + zd - 32075;
    else
        zjd = 367 * zy - ((7 * (zy + 5001 + ((zm - 9) / 7))) / 4) + ((275 * zm) / 9) + zd + 1729777;
endif

This is untested but may give you a hint how to translate that part. 

Regards, Conrad


SciTE4AutoIt = 3.7.3.0   AutoIt = 3.3.14.2   AutoItX64 = 0   OS = Win7Pro SP1   OSArch = X64   Language = 0407/german
H:\...\AutoIt3\SciTE     H:\...\AutoIt3      H:\...\AutoIt3\Include     (H:\ = Network Drive)

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

Share this post


Link to post
Share on other sites

this is what's i tried but it give me a errors.

func gregorian_to_hijri($G_year = @Year, $g_month = @Mon, $g_day = @MDay)
local $year = $G_year, $month = $G_month, $day = $g_day
local $zjd, $zl, $zn, $zj
local $zY, $ZM, $ZD
if (($year > 1582) Or (($year = 1582) And ($month > 10)) Or (($year = 1582) And ($month = 10) And ($day > 14))) Then
$zjd = ((1461 * ($year + 4800 + (($month - 14) / 12))) / 4) + ((367 * ($month - 2 - 12 * ((($month - 14) / 12)))) / 12) - ((3 * ((($year + 4900 + (($month - 14) / 12))/ 100))) / 4) + $day - 32075
else
$zjd = 367 * $year - ((7 * ($year + 5001 + (($month - 9) / 7))) / 4) + ((275 * $month) / 9) + $day + 1729777
endif
$zl = $zjd - 1948440 + 10632
$zn = (($zl - 1) / 10631)
$zl = $zl - 10631 * $zn + 354
$zj = (((10985 - $zl) / 5316)) * ((Int((50 * $zl) / 17719)) + (($zl / 5670)) * ((int((43 * $zl) / 15238))
$zl = $zl - (((30 - $zj) / 15)) * (((17719 * $zj) / 50)) - (($zj / 16)) * (((15238 * $zj) / 43)) + 29
$zm = ((24 * $zl) / 709)
$zd = $zl - ((709 * $zm) / 24)
$zy = 30 * $zn + $zj - 30
return $zy & " / " & $zm & " / " & $zd
endFunc

 

can any one from you check it please?

thank you

:)

 

Share this post


Link to post
Share on other sites

What error message(s) do you get? Most of them I find very use- and helpful.


SciTE4AutoIt = 3.7.3.0   AutoIt = 3.3.14.2   AutoItX64 = 0   OS = Win7Pro SP1   OSArch = X64   Language = 0407/german
H:\...\AutoIt3\SciTE     H:\...\AutoIt3      H:\...\AutoIt3\Include     (H:\ = Network Drive)

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

Share this post


Link to post
Share on other sites

I fixed the errors. I dont know if the function result is correct though:

ConsoleWrite(gregorian_to_hijri()&@CRLF)
Exit
func gregorian_to_hijri($G_year = @Year, $g_month = @Mon, $g_day = @MDay)
local $year = $G_year, $month = $G_month, $day = $g_day
local $zjd, $zl, $zn, $zj
local $zY, $ZM, $ZD
if (($year > 1582) Or (($year = 1582) And ($month > 10)) Or (($year = 1582) And ($month = 10) And ($day > 14))) Then
$zjd = ((1461 * ($year + 4800 + (($month - 14) / 12))) / 4) + ((367 * ($month - 2 - 12 * ((($month - 14) / 12)))) / 12) - ((3 * ((($year + 4900 + (($month - 14) / 12))/ 100))) / 4) + $day - 32075
else
$zjd = 367 * $year - ((7 * ($year + 5001 + (($month - 9) / 7))) / 4) + ((275 * $month) / 9) + $day + 1729777
endif
$zl = $zjd - 1948440 + 10632
$zn = (($zl - 1) / 10631)
$zl = $zl - 10631 * $zn + 354
$zj = (((10985 - $zl) / 5316)) * (Int((50 * $zl) / 17719)) + ($zl / 5670) * (int((43 * $zl) / 15238))
$zl = $zl - (((30 - $zj) / 15)) * (((17719 * $zj) / 50)) - (($zj / 16)) * (((15238 * $zj) / 43)) + 29
$zm = ((24 * $zl) / 709)
$zd = $zl - ((709 * $zm) / 24)
$zy = 30 * $zn + $zj - 30
return $zy & " / " & $zm & " / " & $zd
endFunc
Exit

 

Share this post


Link to post
Share on other sites

nacerbaaziz,

Here is my version of that algorithm:

#cs
    void gregorian_to_hijri(int* h_y, int* h_m, int* h_d, int  g_y, int  g_m, int  g_d)
    {
    int year, month, day;

    int zyr;
    int zd;
    int zm;
    int zy;

    float zjd;
    int zl;
    int zn;
    int zj;

    year = g_y;
    month = g_m;
    day = g_d;


    zyr = year;
    zd = day;
    zm = month;
    zy = zyr;

#ce


ConsoleWrite(_Greg2Hij() & @CRLF)

Func _Greg2Hij($sGY = @YEAR, $sGM = @MON, $sGD = @MDAY)

    $iZYr = Number($sGY)
    $iZY = Number($sGY)
    $iZM = Number($sGM)
    $iZD = Number($sGD)

    #cs

        if((zy > 1582) || ((zy == 1582) && (zm > 10)) || ((zy == 1582) && (zm == 10) && (zd > 14)))
        {
        zjd = ((1461 * (zy + 4800 + ((zm - 14) / 12))) / 4)
        + ((367 * (zm - 2 - 12 * (((zm - 14) / 12)))) / 12)
        - ((3 * (((zy + 4900 + ((zm - 14) / 12)) / 100))) / 4) + zd - 32075;
        }
        else
        {
        zjd = 367 * zy - ((7 * (zy + 5001 + ((zm - 9) / 7))) / 4)
        + ((275 * zm) / 9) + zd + 1729777;
        }
    #ce

    Local $iZJd

    If ($iZY > 1582) Or ($iZY = 1582 And $iZM > 10) Or ($iZY = 1582 And $iZM = 10 And $iZD > 14) Then

        $iZJd = Int(((1461 * ($iZY + 4800 + (($iZM - 14) / 12))) / 4) + _
                ((367 * ($iZM - 2 - 12 * ((($iZM - 14) / 12)))) / 12) - _
                ((3 * ((($iZY + 4900 + (($iZM - 14) / 12)) / 100))) / 4) + $iZD - 32075)

    Else

        $iZJd = Int((367 * $iZY) - ((7 * ($iZY + 5001 + (($iZM - 9) / 7))) / 4) + _
                ((275 * $iZM) / 9) + $iZD + 1729777)

    EndIf

    #cs
        zl = zjd - 1948440 + 10632;
        zn = ((zl - 1) / 10631);
        zl = zl - 10631 * zn + 354;
        zj = (((10985 - zl) / 5316)) * ((int)((50 * zl) / 17719))
        + ((zl / 5670)) * ((int)((43 * zl) / 15238));

        zl = zl - (((30 - zj) / 15)) * (((17719 * zj) / 50))
        - ((zj / 16)) * (((15238 * zj) / 43)) + 29;

        zm = ((24 * zl) / 709);
        zd = zl - ((709 * zm) / 24);
        zy = 30 * zn + zj - 30;

        *h_y = zy;
        *h_m = zm;
        *h_d = zd;
        }

    #ce

    Local $iZL = Int($iZJd - 1948440 + 10632)
    Local $iZN = Int(($iZL - 1) / 10631)
    $iZL -= (10631 * $iZN) + 354

    Local $iZJ = Int((((10985 - $iZL) / 5316)) * (Int((50 * $iZL) / 17719)) + (($iZL / 5670)) * (Int((43 * $iZL) / 15238)))

    $iZL -= Int((((30 - $iZJ) / 15)) * (((17719 * $iZJ) / 50)) - (($iZJ / 16)) * (((15238 * $iZJ) / 43)) + 29)

    Local $iZM =Int((24 * $iZL) / 709)
    Local $iZD = Int($iZL - ((709 * $iZM) / 24))
    Local $iZY = Int((30 * $iZN) + $iZJ - 30)

    Return $iZY & "/" & $iZM & "/" & $iZD

EndFunc   ;==>_Greg2Hij

It gives the same nonsense result as Juvigy's: 1440.79552344311 / -36.2656331431983 / 0

I think this is caused by a problem with operator precedence in those calculations. Most languages work on roughly the same pattern but in multiple operator chains like this algorithm it is easy to get the parentheses wrong.

Corrected (I think) for the Int typing - now gives: 1462/3273/26

Which is still wrong, but closer to what online convertors give as 1439/09/25

M23

Edited by Melba23
Amended variable typing

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

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

In VB it is quite easy as the following code snippet shows:

Sub test()
Dim a, b As String
a = "2017/7/7"
b = "2017/5/1"
Debug.Print DGreg("1438/12/10")
Debug.Print DHijri(b)
Debug.Print DateDiff("d", a, b)
End Sub

Function DGreg(dtHijDate As String) As Date
VBA.Calendar = vbCalHijri
DGreg = dtHijDate
VBA.Calendar = vbCalGreg
End Function

Function DHijri(dtGregDate As String) As Date
VBA.Calendar = vbCalGreg
DHijri = dtGregDate
VBA.Calendar = vbCalGreg
End Function

https://social.msdn.microsoft.com/Forums/en-US/9d36abaa-8a10-401f-bf38-fe105372049d/vba-code-for-hijri-date-converter?forum=isvvba


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2020-10-10 - Version 1.5.2.1) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2020-12-15 - Version 1.6.3.1) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX_GUI (2020-06-27 - Version 1.3.2.0) - Download
Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
Task Scheduler (2019-12-03 - Version 1.5.1.0) - Download - General Help & Support - Wiki

Tutorials:
ADO - Wiki, WebDriver - Wiki

 

Share this post


Link to post
Share on other sites

The seemingly wrong result is caused by AutoIt variables not being strongly typed.

To work as expected one need to insert Int() everytime an operation yields a partial result as double, while in C when a variable is declared int and assigned a double result, casting to int is automagic.


This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Share this post


Link to post
Share on other sites

jchd,

Thanks for that tip. I adjusted the algorithm I posted above - but obviously not correctly as it still gives a nonsense answer for the month.

M23


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

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Welcome, everyone.
First I would like to thank you for the interaction

I tried using the function that Melba23 did it.
it give me this result

1462/3273/26
But the correct date is
1439 / 09 / 23
And I didn't know why it give me a false result
Can any one of you help me to correct it?
Or if someone of you knows the VB language trying to convert the function that mister Water shared with us

Thank you already.
And I apologize to you for my stupidity.

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
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By MiKa666
      Hi all,
      I'm developing a tool for exploratively testing another software. For that I wanna cover all the GUI functionality from that software and verify everything works as intended. But now I've a problem which I couldnt solve so far.
      One thing that software I'm testing does, is to load up either a single picture or a series of pictures. Depending on how much pictures got loaded, further actions will be proceeded...
      This loaded pictures are schon within a ToolbarWindow and they're clickable. What I need to know is, how much pictures are in this ToolbarWindow...
      Can anybody provide me a tip on how to achive this?
      Would be amazing!!
      BR,
      Mic
    • By meety
      Hello!
      wingettext function can get the text content of the IE browser page, but the text content of the page cannot be obtained in the chrome browser? What should I do?
    • By DirtyJohny
      Hi everyone.Need rewrite this function how in еxample.
      Original:
      #RequireAdmin #NoTrayIcon Opt("MustDeclareVars",1) Func _a() Local $sls=ObjGet("winmgmts:{impersonationLevel=impersonate," _ &"authenticationLevel=Pkt}!\\"& _ @ComputerName&'\root\wmi'),$lss=$sls.ExecQuery _ ('SELECT * FROM WmiMonitorID'), _ $lll,$sll,$sss="",$lsl,$lls,$i,$z For $z In $lss $lsl=$z.UserFriendlyName For $i=0 To Ubound($lsl)-1 if ($lsl[$i]) Then $lll&=Chr($lsl[$i]) Next $lls=$z.SerialNumberID For $i=0 To Ubound($lls)-1 if ($lls[$i]) Then $sll&=Chr($lls[$i]) Next $sss&="Model"&@TAB&@TAB&": "&$lll&@CR&"Serial Number"&@TAB&": "&$sll&@CR&@CR $lll="" $sll="" Next MsgBox(262144,'Monitors '&$lss.Count,$sss&" "&@CR) $lss=Null $sls=Null EndFunc _a() Example:
      Func _InfoPC() Local $ObjService = ObjGet('winmgmts:{impersonationLevel = impersonate}!\\' & @ComputerName & '\root\cimv2') Local $ObjMB = $ObjService.ExecQuery('SELECT * FROM Win32_BaseBoard', 'WQL', 0x30) If IsObj($ObjService) Then For $objItemMB In $ObjMB $sInfo &= @TAB & 'Motherboard: ...... ' & $objItemMB.Product & @CRLF I'm beginner in this sphere and need  you all speak easy and simply because i'm Russian.Thanks)
    • By Deshanur
      Am trying to automate injecting credential on the login form for all kind of Web application for IE. I know how to identify the form name by viewing the source code and using the method - _IEFormGetObjByName($ie, $form_Name).
      I would like to know how to identify or get the form object for the web app where there is no form name tag for example below, for the is I have used - _IEFormGetCollection($ie, 0) to get the form object.
      My Question is does it work for all kind of application "_IEFormGetCollection($ie, 0)" how to identify Index value? is it always 0? is there any better solution?
      The final solution am looking for is find out form object, get the username, password field and inject credential and submit the form.
      How to find out index value? for the forms which does not have form name field.
      $login_form = _IEFormGetCollection($ie, 0) $email_field = _IEFormElementGetObjByName($login_form, $form_UserName) $pass_field = _IEFormElementGetObjByName($login_form, $form_password) $login_button = _IEFormElementGetObjByName($login_form, $form_submitbutton) _IEFormElementSetValue($email_field, $CmdLine[2]) _IEFormElementSetValue($pass_field, $CmdLine[3]) ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]","{Enter}") OR This works fine if the form has form name. $login_form = _IEFormGetObjByName($ie, $form_Name) $email_field = _IEFormElementGetObjByName($login_form, $form_UserName) $pass_field = _IEFormElementGetObjByName($login_form, $form_password) $login_button = _IEFormElementGetObjByName($login_form, $form_submitbutton) _IEFormElementSetValue($email_field, $CmdLine[2]) _IEFormElementSetValue($pass_field, $CmdLine[3]) ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]","{Enter}")
    • By JuanFelipe
      Hello guys!
      I have a problem with a script, in the past I made a program and it worked perfect, I recently used it again and it already stands still in one step, the problem is a Javascript event that changed but now I cannot execute it.
       
      <td colspan="2" align="center"><input type="button" id="Buscar" name="Buscar" value="Buscar" onclick="javascript:enviarForma(document.obtenercasosPersonaPorDocumento,'0');" class="boton"></td>  
      Previously I used this code and it worked, but now it does nothing
      $botonconsulta = _IEGetObjByName($oIE,"Buscar") _IEAction($botonconsulta, 'click') _IELoadWait($oIE)  
      Now I have tried the following codes but none works.
       
      ;==================== 1 _IEHeadInsertEventScript($oIE, "document", "onclick", "javascript:enviarForma(document.obtenercasosPersonaPorDocumento,'0');") ControlClick("SUPER CELAC", "", "[CLASS:Internet Explorer_Server; INSTANCE:1]") _IELoadWait($oIE) ;==================== 2 $forma = $oIE.document.obtenercasosPersonaPorDocumento $oIE.Navigate("JavaScript:enviarForma("&$forma&",""0"");") _IELoadWait($oIE) ;==================== 3 $boton = _IEGetObjById($oIE, "Buscar") $boton.document.parentwindow.execScript("enviarForma(document.obtenercasosPersonaPorDocumento,'0');", "javascript") I hope you can guide me, because I think the error is in the parameters that the javascript function receives but I don't know how to send it, here I leave the first part of the JavaScript function.
      function enviarForma(frm,tipoForma){ var bExisteDatoConsulta = false; var bError=true; var mensajeError=""; switch (tipoForma) { //--Forma documento case "0": if (validar_campo_no_vacio_no_print(frm.numeroDocumento)) { if (!isNum(frm.numeroDocumento.value)) { bError = false; mensajeError += "El número de documento debe ser un valor numérico\n"; } bExisteDatoConsulta = true; } else { mensajeError += "Debe digitar un número de documento\n"; } break;  Thanks!
×
×
  • Create New...